Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

Вызвать событие 


avr555   (2002-01-22 17:02) [0]

Как мне можно вызвать событие в программе.
Т.е. у меня есть кнопка и мне нужно , чтоб программа думала, что на нее нажали.



Serghei   (2002-01-22 17:15) [1]

Smotri po forumu, segodnia uje bil takoi vopros i otveti na nego
ili <zdesi> ili v <sisteme>.



Юрий Зотов   (2002-01-22 17:15) [2]

Button1.Click;

Или

Form1.Button1Click(любой_объект_или_nil);



yaJohn   (2002-01-22 17:16) [3]

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage("Hello");
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Click;
Button1.OnClick(Sender);
self.Button1Click(Sender);
end;


variant 2 - nehudo ubeditsia, chto u Button1 est" obrabotchik OnClick.



Johnny Smith   (2002-01-22 17:17) [4]

Пусть нажатие кнопки вызывает процедуру Button1Click(Sender:TOblect)
Тогда для вызова этой процедуры достаточно указать:
....
Button1Click(self);
.....



Serghei   (2002-01-22 17:17) [5]

Jorchick © (21.01.02 14:04)
Народ, подскажите как эмулировать нажатия кнопки мышки.


--------------------------------------------------------------------------------
Serghei (21.01.02 14:39)
Component.Perform(WM_LBUTTONDOWN ili WM_RBUTTONDOWN,...) и далее по хелпу если не ошибаюсь!

Удачи!


--------------------------------------------------------------------------------
МИФИст © (21.01.02 17:33)
Если я правильно тебя понял, то в 6 Дельфях:
например:
Form1.Button1.Click;
а в других вот так:
Form1.Button1Click(Button2); в качестве Sender, может быть что угодно. (Здесь при нажатии на кн.2 будет выполняться действия кн.1).


--------------------------------------------------------------------------------
BiJi © (21.01.02 18:16)
Вот процедура опускает и поднимает левую кнопку мыши не перемещая её по экрану

procedure TForm1.MClick;
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0,0,0,0);

Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0,0,0,0);
end;




--------------------------------------------------------------------------------
Victorbur (22.01.02 12:23)
SendMessage({где кликать}, WM_LBUTTONDOWN, 0, 0);
SendMessage(bbOk.Handle, WM_LBUTTONUP, 0, 0);



--------------------------------------------------------------------------------



yaJohn   (2002-01-22 17:25) [6]

2 МИФИст ©
>Если я правильно тебя понял, то в 6 Дельфях:
Ne sovsem tak. Ne v Delfiah, a v ObjectPaskal. Rabotaut oba varianta. V kachestve Sender rabotaet chto ugodno vplot" do nil. Ejeli, kone4no, posleduushemu obrabotchiku eto po barabanu.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.016 c
7-19011           sw                    2001-10-30 10:05  2002.02.07  
прерывание 09 в Windows


14-18967          rsmike                2001-12-19 03:59  2002.02.07  
Где взять MySQL сервер для Win?


1-18919           Lipskiy               2002-01-22 00:32  2002.02.07  
Проблема с компонентой TTreeView и с указателями в частности.


3-18783           Val                   2002-01-14 11:17  2002.02.07  
Коннект к базе


7-19012           T2                    2001-10-29 16:59  2002.02.07  
События Windows