Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.




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

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

Наверх





Память: 0.45 MB
Время: 0.005 c
1-18805
Sergey001
2002-01-24 18:34
2002.02.07
Компонент ListView с независимым свойством Font


7-18999
Alexx
2001-10-31 08:40
2002.02.07
Работа с сетевой картой


1-18867
KaPaT
2002-01-22 23:41
2002.02.07
Ребят, помогите с ресурсами пожалуйста!


1-18837
Rulev
2002-01-21 16:26
2002.02.07
MDI - Дочерние окна


3-18752
Olfi
2002-01-10 11:05
2002.02.07
Проблемы с INSERT :(





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