Programmering Lazarus - Versionshistorik

Lgrfbs den 16 februari 2014 kl. 14.27

2014-02-16T14:27:35Z

← Äldre version		Versionen från 16 februari 2014 kl. 14.27
Rad 1:		Rad 1:
	Åter till [[~~Programmerning~~]]		Åter till [[Programmering]]
	----		----
	Innehåll:<br>		Innehåll:<br>

Lgrfbs den 16 februari 2014 kl. 14.26

2014-02-16T14:26:53Z

← Äldre version		Versionen från 16 februari 2014 kl. 14.26
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">

Lgrfbs: Skapade sidan med 'Å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.Button4Cl…'

2014-02-16T14:26:31Z

Skapade sidan med 'Åter till Programmerning ---- Innehåll: ''För att visa/dölja en GroupBox med innehåll, utan att använda någon variabel. ---- <nowiki>procedure TForm1.Button4Cl…'

Ny sida

Åter till [[Programmerning]]
----
Innehåll: 
''För att visa/dölja en GroupBox med innehåll, utan att använda någon variabel.

----

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

<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>

Programmering Lazarus - Versionshistorik

Lgrfbs den 16 februari 2014 kl. 14.27

Lgrfbs den 16 februari 2014 kl. 14.26

Lgrfbs: Skapade sidan med 'Å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.Button4Cl…'

Lgrfbs: Skapade sidan med 'Å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.Button4Cl…'