Skillnad mellan versioner av "Programmerning Lazarus"
Hoppa till navigering
Hoppa till sök
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…') |
(Ingen skillnad)
|
Versionen från 16 februari 2014 kl. 00.01
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;