وقتی کلید Esc را می زنم فرم را نمی بندد [بایگانی]

ali_abbasi22145

چهارشنبه 28 شهریور 1386, 16:23 عصر

سلام
چرا با این کد وقتی کلید Esc را می زنم فرم را نمی بندد.
جالب اینجاست که در فرم های دیگر با این کد دقیقا فرم بسته می شود!!!!

procedure TCardFormatSetupForm.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key = 27 then CardFormatSetupForm.Close;
end;

Hamid.Kad

چهارشنبه 28 شهریور 1386, 16:38 عصر

خاصیت FormStyle رو چک کنید شاید از نوع MDI باشه

Will_Smith

چهارشنبه 28 شهریور 1386, 18:01 عصر

آقا بیا یه Button بزار روی فرم و خاصیت Cancel=True بعد تو رویداد OnClick بنویس Close
با Esc هر فرمی بسته میشه

SYNDROME

چهارشنبه 28 شهریور 1386, 21:01 عصر

با سلام
می توانی از Actionاستفاده کنی و یک ActionListاضافه بکن و سپس در خاصیت Shortcut آن تایپ کن Esc و کدها را در action بنویس.
حالا با زدن دکمه Escکد فوق فراخوانی شده و فرم بسته می شود.
موفق باشید

پرواز

پنج شنبه 29 شهریور 1386, 06:58 صبح

همه اینا درست.
ولی اشکال کدش چیه؟
ظاهراً که درست به نظر میاد.
تازه میگه تو بقیه فرم ها عمل می کنه.

خاصیت FormStyle رو چک کنید شاید از نوع MDI باشه
مگه فرم MDI با این متد بسته نمیشه؟
من امتحان کردم بسته شد.

ali_abbasi22145

پنج شنبه 29 شهریور 1386, 08:57 صبح

خاصیت FormStyle رو چک کنید شاید از نوع MDI باشه

سلام
خاصیت مثل بقیه فرمها normal است.

ali_abbasi22145

پنج شنبه 29 شهریور 1386, 09:27 صبح

با سلام
می توانی از Actionاستفاده کنی و یک ActionListاضافه بکن و سپس در خاصیت Shortcut آن تایپ کن Esc و کدها را در action بنویس.
حالا با زدن دکمه Escکد فوق فراخوانی شده و فرم بسته می شود.
موفق باشید

سلام
دوست من یک مثال ساده از روش شما اینجا آپلود کنید و لطفا لینک ندهید.

mzjahromi

پنج شنبه 29 شهریور 1386, 11:25 صبح

سلام
چرا با این کد وقتی کلید Esc را می زنم فرم را نمی بندد.
جالب اینجاست که در فرم های دیگر با این کد دقیقا فرم بسته می شود!!!!

procedure TCardFormatSetupForm.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key = 27 then CardFormatSetupForm.Close;
end;

خاصیت KeyPreview رو True کردید؟

SYNDROME

پنج شنبه 29 شهریور 1386, 13:00 عصر

با سلام

دوست من یک مثال ساده از روش شما اینجا آپلود کنید و لطفا لینک ندهید.
در برنامه زیر با زن کلید Escفرم بسته می شود و از Action استفاده شده است.
موفق باشید

پرواز

پنج شنبه 29 شهریور 1386, 16:11 عصر

خاصیت KeyPreview رو True کردید؟
حرف جناب mzjahromi کاملاً درسته! من چون خودم رعایت کرده بودم دیگه بهش توجه نکردم! آخه یه پروژه از قبل نوشته شده رو دوباره امتحان کردم.

ali_abbasi22145

شنبه 31 شهریور 1386, 10:24 صبح

سلام
مرسی دوست عزیز آقای mzjahromi که همیشه حلال مشکلات هستید.
همچنین تشکر می کنم از دوستان دیگر.
>> خاصیت KeyPreview رو True کردید؟
True درست شد و بقییه فرمها False هستند ولی کار می کند. به هرحال مشکلم حل شد.