Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Вниз
Напомните плиз.... Найти похожие ветки
← →
^Sanya (2002-08-16 18:44) [0]Насчёт создания присваивания компоненту обработчика события программно:
знаю 2 способа:
первый-объявить в классе процедуру с теми же параметрами (обычно Sender : TObject)
второй-подзабыл.... точнее чуть-чуть подзабыл..
Там в той же процедуре вместо Sender"а было 2 параметра типа pointer(кажется....)
Напомните пожалуйста, если кто помнит:)
← →
Esu (2002-08-16 18:56) [1]Эээ Наверное ты сообщение перехватывал ? :)
← →
-peter- (2002-08-16 19:19) [2]To ^Sanya
Головоломка, какая-то.
Напиши, что ты хочеш сделать!
← →
^Sanya (2002-08-16 19:45) [3]
> Esu © (16.08.02 18:56)
Не, не перехватывал....
Точно помню, очень похоже на первый способ...только с поинтерами
> -peter- © (16.08.02 19:19)
Показываю:
...
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure MyEvent(Sender : TOBject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MyEvent(Sender : TOBject);
begin
ShowMessage("Hi
← →
McSimm (2002-08-16 20:05) [4]Вероятно имеется в виду способ подключения к ссобытию не объектоной процедуры (не of object)
Что-то вроде такого :
procedure MyClick(P1, P2: Pointer);
begin
...
end;
procedure TForm1.Button1Click(Sender: TObject);
var E: TMethod;
begin
E.Code := @MyClick;
E.Data := Self;
Button2.OnClick := TNotifyEvent(E)
end;
В процедуре P1 и P2 будут иметь значения Self и Sender.
← →
^Sanya (2002-08-16 20:23) [5]I>
> McSimm © (16.08.02 20:05)
ВО-ВО!!!<
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c
