Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.07;
Скачать: CL | DM;

Вниз

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

 
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.




Страницы: 1 вся ветка

Текущий архив: 2002.02.07;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.005 c
1-18923
LamerMen
2002-01-24 09:56
2002.02.07
Что использовать TMemo TR..Edit?


1-18852
nikols
2002-01-22 11:06
2002.02.07
Кто нибудь знает, как из PDF файла извлечь сразу весь текст и графику?


1-18906
Alexfdfdfd
2002-01-24 00:47
2002.02.07
Народ , всё бы хорошо , но экзешники слишком велики.


1-18894
maximf
2002-01-23 16:54
2002.02.07
Использование исходников VCL при отладке


3-18766
Gonza
2002-01-12 14:49
2002.02.07
IBM DB2, Обновление данных после Post?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский