Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Новое свойство у компонента / 5 сообщений из 5, страница 1 из 1
26.11.2003, 11:09
    #32335023
LA
LA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новое свойство у компонента
Доброе время суток!
Создаю новый компонент, который наследует все от TStringGrid + хочу добавить событие по нажатию правой кнопки мыши. Толком не знаю как это сделать, а конкретно, как привязать событие к правой кнопке мыши и вообще..как привязать действия к событию? Буду признательна за рекомендации!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2003, 11:47
    #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:50
    #32335073
Makar4ik
Makar4ik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новое свойство у компонента
Хотя, я наверное не понял, что нужно.
Это - про вываливающуюся менюшку в DESIGN TIME!

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


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