Skillnad mellan versioner av "Programmerning Lazarus"
Hoppa till navigering
Hoppa till sök
Lgrfbs (diskussion | bidrag) |
m |
||
Rad 21: | Rad 21: | ||
< | <pre style="color:green"> | ||
procedure TForm1.Button4Click(Sender: TObject); | procedure TForm1.Button4Click(Sender: TObject); | ||
begin | begin | ||
Rad 34: | Rad 33: | ||
end; | end; | ||
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;