Skillnad mellan versioner av "Programmerning Lazarus"
Hoppa till navigering
Hoppa till sök
Lgrfbs (diskussion | bidrag) |
Lgrfbs (diskussion | bidrag) |
||
| Rad 2: | Rad 2: | ||
---- | ---- | ||
Innehåll:<br> | Innehåll:<br> | ||
''För att visa/dölja en GroupBox med innehåll | ''För att visa/dölja en GroupBox med innehåll, utan att använda någon variabel. | ||
---- | ---- | ||
Versionen från 16 februari 2014 kl. 14.11
Åter till Programmerning
Innehåll:
För att visa/dölja en GroupBox med innehåll, utan att använda någon variabel.
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;