Visible befehl funktioniert nicht

[Fr33z0r]

hi
ich hab mal ne ganz blöde frage.
wenn ich auf einen button klicken soll, soll er unsichtbar werden - nur er wirds nicht
hier mein (stark vereinfachter) quelltext:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
Button4.Visible:=false;
end;

was kann der grund sein, warum der button nicht unsichtbar wird?

[toms]

Zitat:

Zitat von Fr33z0r

hi
hier mein (stark vereinfachter) quelltext:

Wenn du im OnClick Ereignis nur diese eine Zeile reinschreibst, sollte es den
Button verstecken. Der Fehler liegt also im "nicht-stark vereinfachten" Code.

[Fr33z0r]

ja das weiß ich auch - soll ich jetzt das komplette programm hier rein kopieren?
meine frage ist ja, woran es noch liegen KÖNNTE?

[DGL-luke]

Nana, immer mit der Ruhe... was passiert denn, wenn du das bei einem anderen button reinschreibst? wird vielleicht irgendwo der button automatisch wieder sichtbar gemacht?

[leddl]

:roll: Sorry, meine Glaskugel is gerade beim TÜV, die krieg ich erst nächste Woche wieder... :roll:

Mal ernsthaft, wie soll man denn sagen, woran das liegen kann? Theoretisch an allem. Eingrenzen könnte man das, wenn man die Methode mal komplett zu sehen bekäme... Deswegen mußt du doch nicht gleich das ganze Programm posten.

[Fr33z0r]

hilft sicherlich auch nicht weiter:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var zeit: integer;
begin
zeit:=100;
label8.Caption:=inttostr(zeit);
timer1.Enabled:=true;
Button4.Visible:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var zeit: integer;
begin
zeit:=strtoint(label8.Caption) - 1;
label8.Caption:=inttostr(zeit);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
timer1.Enabled:= false;
end;

[Christian Seehase]

Moin Fr33z0r,

vertausche mal die Zeilen Timer1.Enabled und Button4.Visible := false
Ich denke mal, dass der Timer sofort ausgelöst wird, weshalb dann die Folgezeile nicht zur Ausführung kommt.

BTW:
Zu Beginn der OnTimer Routine, solltest Du diesen deaktivieren, und erst am Ende wieder aktivieren, um zu verhindern, dass während der Verarbeitung der OnTimer Routine diese wieder erneut ausgelöst wird, falls ihre Abarbeitung längern dauern sollte als der Abstand von einem Auslösen bis zum nächsten (das ist natürlich nicht zwingend erforderlich).

Delphi-Quellcode:

Timer1.Enabled := false;
try
  // Sonstige Routine
finally
  Timer1.Enabled := true;
end;

[Fr33z0r]

hab ich gemacht funzt trotzdem nicht
soll ich mal das komplette programm rein stellen?

[Christian Seehase]

Moin Fr33z0r,

dann aber bitte als Anhang zum Beitrag. EXE und DCU solltest Du dabei weglassen.
Danke.

[Fr33z0r]

hmich hab 11 dateien in dem ordner... soll ich jetzt die anderen 9 alle reinstellen? kann ich mir nich vorstellen