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…') |
Lgrfbs (diskussion | bidrag) |
||
| Rad 1: | Rad 1: | ||
För att visa/dölja en GroupBox med innehåll: | ''För att visa/dölja en GroupBox med innehåll:'' | ||
---- | ---- | ||
Versionen från 16 februari 2014 kl. 10.43
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;