| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вызвать событие [D6, Win2k]

avr555 ©   (2002-01-22 17:02:00) 

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

---

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

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.

---

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

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

---

Serghei   (2002-01-22 17:17:00) [3]

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:16:00) [4]

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.

---

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

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

---

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

Button1.Click;

Или

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

---

Наверх