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

← →
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);

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

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.

Вызвать событие Найти похожие ветки