Что мне нужно добавить?

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

С уважением,

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