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

Вниз

Что мне нужно добавить?   Найти похожие ветки 

 
Ross ©   (2002-05-17 16:23) [0]

procedure TForm1.ClickDbl(var Message: TMessage);
begin
with Message do
Result := SendMessage(Handle, WM_LBUTTONDBLCLK, wParam, lParam);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ClickDbl(....);//Что мне нужно добавить(message?)
end;

P.S. Я хочу сэмулировать DblClick левой кнопки мыши при нажатии на Button1.


 
Игорь Шевченко ©   (2002-05-17 16:32) [1]

procedure TForm1.Button1Click(Sender: TObject);
begin
Perform(WM_LBUTTONDBLCLICK, wParam{кнопки и флажки},LParam{координаты});
end;




 
Ross ©   (2002-05-17 17:01) [2]

Извините, не понимаю


 
Игорь Шевченко ©   (2002-05-17 17:06) [3]

Что значит:
> сэмулировать DblClick левой кнопки мыши при нажатии на Button1


???

Послать форме сообщение о нажатии? Если да, то я про это написал.
Далее смотрите HELP по WM_LBUTTONDBLCLICK.

Можно проще:
procedure TForm1.Button1Click(Sender: TObject);
begin
DblClick;
end;

С уважением,






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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
14-88617
ruslan_as
2002-04-18 11:17
2002.05.27
Нужен BAT-ник


1-88541
kserg@ukr.net
2002-05-15 19:07
2002.05.27
Народ, прошу помощи советом - нужна прога


14-88601
lipskiy
2002-04-18 01:29
2002.05.27
Начат сбор данных для базы процедур и функций сайта delphi.mastak


1-88447
roman_tutov@mail.ru
2002-05-17 11:24
2002.05.27
Опять треды


3-88366
nobody2002
2002-04-30 19:48
2002.05.27
TAdoQuery и пустой запрос