عدم إستجابة زر أثناء الضغط عليه

[hamou1982]

هل يمكن اضافة هذا الكود
بعد الكود CLOSE

PHP كود :

ModalResult := mrOk; 


أي

PHP كود :

procedure TForm1.RzBitBtn1Click(Sender: TObject);
begin
Close;
ModalResult := mrOk;
end; 


وهل هذا الإجراء يمكن ان يحل المشكل؟