Skillnad mellan versioner av "Programmerning Lazarus"

Från ElektronikWikin
Hoppa till navigering Hoppa till sök
m
 
Rad 21: Rad 21:




<source lang="delphi">
<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>
</source>

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;