یه سئوال در مورد دکمه ها ...

[Mahmood_M]

سلام ...
ببخشید اگه عنوان یه خورده درست نبود ( راستش نمی دونستم چی بنویسم ) !!
من چندتا دکمه روی فرم دارم ...
وقتی موس روی این دکمه ها می ره شکل لونها تغییر می کنه ( رویداد OnMouseOver )
حالا چه طور می شه با زدن یک کلید این کار انجام بشه ؟؟
یعنی وقتی مثلا یه دکمه از کیبرد زده شد رویداد OnMouseOver اون اجرا بشه و شکل دکمه تغیید کنه !!؟؟
با تشکر ...
موفق باشید ...

[MNosouhi]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=80 then
BitBtn1.OnMouseMove(nil,[],0,0);
end;

در کد بالا با فشردن دکمه P رویداد OnMouseMove دکمخ BitBtn1 فعال میشه . البته KeyPreview باید true باشد

[Mahmood_M]

دستتون درد نکنه ... :قلب: :قلب: