08-02-2014, 11:50 AM
بارك الله فيك أخي الكريم SMP3
لكن هذا الكود طويل ومعقد، لكنني لاحظت فيه شيئا مهما
حاولت أن أختصر (ملاحظة أنا مبتديء ولا أتقن هذه الأمور)
العملية بطريقة أخرى كالآتي:
-----------------------------
procedure TForm1.Button7Click(Sender: TObject);
var a:integer;
ListeBoutons: array of TButton;
begin
for a := 1 to 3 do
ListeBoutons[a].Visible:=false;
end;
end.
------------------------------------------------------
فالبرنامج يتم تنفيذه لكنه لا يعمل ويظهر خطأ
رجاء إذا أمكنك أن تحدد لي الخطأ وتصححه
بارك الله فيك
لكن هذا الكود طويل ومعقد، لكنني لاحظت فيه شيئا مهما
حاولت أن أختصر (ملاحظة أنا مبتديء ولا أتقن هذه الأمور)
العملية بطريقة أخرى كالآتي:
-----------------------------
procedure TForm1.Button7Click(Sender: TObject);
var a:integer;
ListeBoutons: array of TButton;
begin
for a := 1 to 3 do
ListeBoutons[a].Visible:=false;
end;
end.
------------------------------------------------------
فالبرنامج يتم تنفيذه لكنه لا يعمل ويظهر خطأ
رجاء إذا أمكنك أن تحدد لي الخطأ وتصححه
بارك الله فيك