Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.007 c
1-95796
Goblinus
2002-08-18 17:08
2002.08.29
... = class(TOpenDialog)


3-95729
Viacheslav
2002-08-09 12:58
2002.08.29
Хочу тоже стать мастером ......


3-95654
nic418
2002-08-08 07:27
2002.08.29
Sp с параметрически задаваемыми именами полей. Помогите!


3-95704
Sim0n
2002-08-08 08:54
2002.08.29
помогите разобраться с DBGrid


3-95706
Andrew2
2002-08-08 15:28
2002.08.29
Получить список алиасов





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский