كيف يتم انشاء procedure خاص ب form.show

[mobile]

قم بتحميل المثال الذي ارفقك لك "test form.7z‏"
افتح فيه الكود

var aform:Tform;
begin
aform:=Tform2.create(nil).......
.....
end;