Programmerning Lazarus
Version från den 16 februari 2014 kl. 14.09 av Lgrfbs (diskussion | bidrag)
För att visa/dölja en GroupBox med innehåll: Åter till Programmerning
procedure TForm1.Button4Click(Sender: TObject);
begin
If GroupBox1.Visible=True then
Begin
GroupBox1.Visible:=False;
end
Else
Begin
GroupBox1.Visible:=True;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
If GroupBox1.Visible=True then
Begin
GroupBox1.Visible:=False;
end
Else
Begin
GroupBox1.Visible:=True;
end;
end;