Skillnad mellan versioner av "Programmering Lazarus"

Från ElektronikWikin
Hoppa till navigering Hoppa till sök
(Skapade sidan med 'Åter till Programmerning ---- Innehåll:<br> ''För att visa/dölja en GroupBox med innehåll, utan att använda någon variabel. ---- <nowiki>procedure TForm1.Button4Cl…')
 
Rad 5: Rad 5:


----
----
<nowiki>procedure TForm1.Button4Click(Sender: TObject);</nowiki><br>
<nowiki>begin</nowiki><br>
<nowiki> If GroupBox1.Visible=True then</nowiki><br>
<nowiki> Begin</nowiki><br>
<nowiki>  GroupBox1.Visible:=False;</nowiki><br>
<nowiki> end</nowiki><br>
<nowiki> Else</nowiki><br>
<nowiki> Begin</nowiki><br>
<nowiki>  GroupBox1.Visible:=True;</nowiki><br>
<nowiki> end;</nowiki><br>
<nowiki>end;</nowiki><br>


<pre style="color:green">
<pre style="color:green">

Versionen från 16 februari 2014 kl. 14.26

Å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;
Hämtad från "https://elektronikforumet.com/wiki/index.php?title=Programmering_Lazarus&oldid=5241"