+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : لماذا يتجمد البرنامج عند الضغط على هذا الكود وما هو الحل (/showthread.php?tid=8394)
لماذا يتجمد البرنامج عند الضغط على هذا الكود وما هو الحل - محمد .م.م - 11-02-2017
لماذا يتجمد البرنامج عند الضغط على هذا الكود وما هو الحل
كود :
procedure TForm1.Button1Click(Sender: TObject);
[font=monospace]begin [/font]
[font=monospace] with OpenDialog1 do[/font]
[font=monospace] if Execute then[/font]
[font=monospace]begin[/font]
[font=monospace] form2.Parent := Form1; panel2.Align:=alRight;[/font]
[font=monospace]form2.Width:=Form1.Width-panel1.Width-panel2.Width;[/font]
[font=monospace] form2.OleContainer1.CreateObjectFromFile(FileName, false);[/font]
[font=monospace]form2.Show ; Form2.OleContainer1.DoVerb(1);[/font]
[font=monospace]end;[/font]
end;