Programmerning Lazarus
Version från den 16 februari 2014 kl. 00.01 av Lgrfbs (diskussion | bidrag) (Skapade sidan med 'För att visa/dölja en GroupBox med innehåll: ---- <nowiki>procedure TForm1.Button4Click(Sender: TObject);</nowiki><br> <nowiki>begin</nowiki><br> <nowiki> If GroupBox1.Vis…')
För att visa/dölja en GroupBox med innehåll:
procedure TForm1.Button4Click(Sender: TObject);
begin
If GroupBox1.Visible=True then
Begin
GroupBox1.Visible:=False;
end
Else
Begin
GroupBox1.Visible:=True;
end;
end;