27-02-2011, 03:16 PM
[color="royalblue"]السلام عليكم و حمة الله تعالى و بركاته
فكرة جميلة اخي هذا من حيث البرمجة
لكن هذه فكرتي [/color]
فكرة جميلة اخي هذا من حيث البرمجة
لكن هذه فكرتي [/color]
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:= 0;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:= 1;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:= 2;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
PageControl1.ActivePageIndex:= 3;
end;