 |
 |
 |
 |
 |
|
Programmierung allgemein
GUI-Design mit VCL / FireMonkey / Common Controls
Delphi IF- Anweisungsblock
Antwort
|
Registriert seit: 9. Jul 2007 398 Beiträge |
#1
IF- Anweisungsblock
15. Okt 2007, 18:08
Hi,
irgendwie stehe ich gerade mal so einfach auf dem Schlauch bei einer IF - Anweisung: Code:
Delphi-Quellcode:
Problem: Es wird immer nur die erste Anweisung bearbeitet. Also um den Button wird sich nicht gekümmert. Wie muss ich das machen. Wahrscheinlich in einen Block setzen, oder? Wie?
procedure TForm3.CheckBox26Click(Sender: TObject);
begin if checkbox26.checked = false then begin Form1.Edit1.visible:=false; Form1.Button1.Visible:=false; end else Form1.Edit1.Visible:=true; Form1.Button1.Visible:=true; end;  Bzw. Wo muss ich die Klammern setzen? mfG Störtebeker "And he piled upon the whale´s white hump - a sum of all the rage and hate felt by his whole race.
If his chest had been a cannon, he would have shot his heart upon it." |
Zitat
|
|
Registriert seit: 16. Apr 2007 2.325 Beiträge Turbo Delphi für Win32 |
#2
Re: IF- Anweisungsblock
15. Okt 2007, 18:10
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function." |
|
Zitat
|
Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria |
#3
Re: IF- Anweisungsblock
15. Okt 2007, 18:11
Delphi-Quellcode:
Einfacher wäre allerdings
procedure TForm3.CheckBox26Click(Sender: TObject);
begin if checkbox26.checked = false then begin Form1.Edit1.visible:=false; Form1.Button1.Visible:=false; end else begin Form1.Edit1.Visible:=true; Form1.Button1.Visible:=true; end; end;
Delphi-Quellcode:
[edit]
procedure TForm3.CheckBox26Click(Sender: TObject);
begin Form1.Edit1.visible := checkbox26.checked; Form1.Button1.Visible := checkbox26.checked; end;  [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein) Dieser Tag ist längst gekommen |
|
Zitat
|
|
Registriert seit: 9. Jul 2007 398 Beiträge |
#4
Re: IF- Anweisungsblock
15. Okt 2007, 18:13
THX.
 mfG Störtebeker "And he piled upon the whale´s white hump - a sum of all the rage and hate felt by his whole race.
If his chest had been a cannon, he would have shot his heart upon it." |
|
Zitat
|
(Moderator)
Registriert seit: 25. Jun 2002 Ort: Hausach 7.610 Beiträge |
#5
Re: IF- Anweisungsblock
15. Okt 2007, 20:23
Aaarg. Nie, gar nie nicht einen Boolean auf "= false / true" abprüfen. Das kann furchtbar
 ins Auge gehen. Gleich (=sofort) abgewöhnen!Richtig: if not checkbox.Checked then
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
|
|
Zitat
|
ForumregelnEs ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus. Trackbacks are an
Pingbacks are an
Refbacks are aus
|
|
Linear-Darstellung
