25-05-2017, 02:42 AM
سلام عليكم
كود :
var
F2:TForm;
begin
F2:=Tform.Create(Self);
with f2 do
begin
Parent := self;
//Height := 100;
//Width := 400;
align:=alclient;
caption:='welcome to Myform_01';
color:=clred;
// properties like form..
show;
end;
end;
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)