11-02-2017, 08:57 PM
لماذا يتجمد البرنامج عند الضغط على هذا الكود وما هو الحل
كود :
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;