Skillnad mellan versioner av "Programmerning Lazarus"
Hoppa till navigering
Hoppa till sök
Lgrfbs (diskussion | bidrag) |
m |
||
| (4 mellanliggande versioner av en annan användare visas inte) | |||
| Rad 1: | Rad 1: | ||
''För att visa/dölja en GroupBox med innehåll | Åter till [[Programmerning]] | ||
---- | |||
Innehåll:<br> | |||
''För att visa/dölja en GroupBox med innehåll, utan att använda någon variabel. | |||
---- | ---- | ||
| Rad 16: | Rad 19: | ||
<nowiki> end;</nowiki><br> | <nowiki> end;</nowiki><br> | ||
<nowiki>end;</nowiki><br> | <nowiki>end;</nowiki><br> | ||
<pre style="color:green"> | |||
procedure TForm1.Button4Click(Sender: TObject); | |||
begin | |||
If GroupBox1.Visible=True then | |||
Begin | |||
GroupBox1.Visible:=False; | |||
end | |||
Else | |||
Begin | |||
GroupBox1.Visible:=True; | |||
end; | |||
end; | |||
</pre> | |||
Nuvarande version från 16 februari 2014 kl. 14.22
Å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;