Code
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Тест');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
[color=blue] Button1.Perform(WM_LBUTTONDOWN, 0, 0);
Button1.Perform(WM_LBUTTONUP, 0, 0);[/color]
end;
Можно поподробнее.что это значит и как работает а то я в вин апи ничего непонимаю.
Посоветуйте учебник по винапи для новичков
