maisam57
یک شنبه 27 فروردین 1385, 11:00 صبح
با سلام
من یه برنامه نوشتم که فرماش با کلید ESC بسته میشه توی onexit بعضی از dbedit شرط گذاشتم که اگر شرص برقرار شد یه messagedlg باز شه ولی به محض اینکه روی این dbedit کلید ESC رو فشار بدم فرم بسته نمیشه اول messagedlg و بعد فرم بسته میشه و مشکل اینجاست که اگه بخوام همون فرم رو دوباره باز کنم اول massagedlg باز میشه جواب که داده شد فرم باز میشه و مکانما به همون dbedit فوکوس میشه در حالی که من در formshow یه dbedit دیگه رو فوکوس کردم
با تشکر
procedure Tfishform.Edit1Exit(Sender: TObject);
begin
if edit1.Text <> emptystr then
begin
messagedlg('enter again',mtconfirmation,[mbok],0);
edit1.SetFocus;
exit
end;
من یه برنامه نوشتم که فرماش با کلید ESC بسته میشه توی onexit بعضی از dbedit شرط گذاشتم که اگر شرص برقرار شد یه messagedlg باز شه ولی به محض اینکه روی این dbedit کلید ESC رو فشار بدم فرم بسته نمیشه اول messagedlg و بعد فرم بسته میشه و مشکل اینجاست که اگه بخوام همون فرم رو دوباره باز کنم اول massagedlg باز میشه جواب که داده شد فرم باز میشه و مکانما به همون dbedit فوکوس میشه در حالی که من در formshow یه dbedit دیگه رو فوکوس کردم
با تشکر
procedure Tfishform.Edit1Exit(Sender: TObject);
begin
if edit1.Text <> emptystr then
begin
messagedlg('enter again',mtconfirmation,[mbok],0);
edit1.SetFocus;
exit
end;