ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Новое свойство у компонента
5 сообщений из 5, страница 1 из 1
Новое свойство у компонента
    #32335023
LA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LA
Участник
Доброе время суток!
Создаю новый компонент, который наследует все от TStringGrid + хочу добавить событие по нажатию правой кнопки мыши. Толком не знаю как это сделать, а конкретно, как привязать событие к правой кнопке мыши и вообще..как привязать действия к событию? Буду признательна за рекомендации!!!
...
Рейтинг: 0 / 0
26.11.2003, 11:09
| Ответить | Цитировать | Написать  
Новое свойство у компонента
    #32335069
Фотография Makar4ik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Makar4ik
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
type
  T_myEditor = Class(TComponentEditor)
  protected
  .......
  public
    function GetVerb(Index: integer): string; override;
    function GetVerbCount : integer; override;
  end;

function T_myEditor.GetVerb(Index: integer): string;
begin
  case Index of
     0  : result := 'About';
     1  : result := '-';
  end
end;

function T_myEditor.GetVerbCount : integer;
begin
  Result:= 2 ;
end;

procedure T_myEditor.ExecuteVerb(Index: integer);
begin
  case Index of
     0 : DoSomething;
  end;
end;
// -------------------------
 

procedure Register;
begin
  RegisterComponentEditor(T_myComponent, T_myEditor);
end;
...
Рейтинг: 0 / 0
26.11.2003, 11:47
| Ответить | Цитировать | Написать  
Новое свойство у компонента
    #32335073
Фотография Makar4ik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Makar4ik
Участник
Хотя, я наверное не понял, что нужно.
Это - про вываливающуюся менюшку в DESIGN TIME!

А событие по правой кнопе...
OnMouseDown... :-)
...
Рейтинг: 0 / 0
26.11.2003, 11:50
| Ответить | Цитировать | Написать  
Новое свойство у компонента
    #32335085
LA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LA
Участник
...хотелось бы свое событие изобразить, подобное OnClick, только чтоб по правой кнопке мыши. Запуталась окончательно....вот что у меня есть:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids;

type

 TMouseRight=procedure(  каким - то образом нужно это привязать к правой кнопке мыши!!!)of object;
 TStringGridR = class(TStringGrid)
  private
  FOnRightClick:TMouseRight;
    { Private declarations }
 
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor create(AOWner:TComponent); override;

  published
    { Published declarations }
    property OnRightClick:TMouseRight read FOnRightClick write FOnRightClick;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComponents ', [TStringGridR]);
end;
constructor TStringGridR.create(AOwner:TComponent);
begin
       inherited create(AOwner);
       ......................
end;
..................
.................
....................
end.


.....у кого какие идеи???
...
Рейтинг: 0 / 0
26.11.2003, 11:57
| Ответить | Цитировать | Написать  
Новое свойство у компонента
    #32335100
pkarklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pkarklin
Участник
Вам, IMHO, не новое свойство нужно. А своя реализизация поведения компонента при нажатии кнопки мыши. Для этого достаточно перекрыть метод DoMouseDown.
...
Рейтинг: 0 / 0
26.11.2003, 12:06
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Новое свойство у компонента
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]