سلام
چرا با این کد وقتی کلید Esc را می زنم فرم را نمی بندد.
جالب اینجاست که در فرم های دیگر با این کد دقیقا فرم بسته می شود!!!!
procedure TCardFormatSetupForm.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key = 27 then CardFormatSetupForm.Close;
end;
خاصیت FormStyle رو چک کنید شاید از نوع MDI باشه
آقا بیا یه Button بزار روی فرم و خاصیت Cancel=True بعد تو رویداد OnClick بنویس Close
با Esc هر فرمی بسته میشه
با سلام
می توانی از Actionاستفاده کنی و یک ActionListاضافه بکن و سپس در خاصیت Shortcut آن تایپ کن Esc و کدها را در action بنویس.
حالا با زدن دکمه Escکد فوق فراخوانی شده و فرم بسته می شود.
موفق باشید
همه اینا درست.
ولی اشکال کدش چیه؟
ظاهراً که درست به نظر میاد.
تازه میگه تو بقیه فرم ها عمل می کنه.
مگه فرم MDI با این متد بسته نمیشه؟نوشته شده توسط Hamid.Kad
من امتحان کردم بسته شد.
سلام
خاصیت مثل بقیه فرمها normal است.
سلام
دوست من یک مثال ساده از روش شما اینجا آپلود کنید و لطفا لینک ندهید.
خاصیت KeyPreview رو True کردید؟
You never know what you can do until you try
با سلام
در برنامه زیر با زن کلید Escفرم بسته می شود و از Action استفاده شده است.
موفق باشید
حرف جناب mzjahromi کاملاً درسته! من چون خودم رعایت کرده بودم دیگه بهش توجه نکردم! آخه یه پروژه از قبل نوشته شده رو دوباره امتحان کردم.
سلام
مرسی دوست عزیز آقای mzjahromi که همیشه حلال مشکلات هستید.
همچنین تشکر می کنم از دوستان دیگر.
>> خاصیت KeyPreview رو True کردید؟
True درست شد و بقییه فرمها False هستند ولی کار می کند. به هرحال مشکلم حل شد.
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول