CanClose spielt verrückt

[Bassel]

Das Problem:
Ich habe ein Programm, dass sich erst nach dem eingeben eines Passworts
schließen lassen soll,d.h. erst CanClose := False und dann nach der
Passwortabfrage CanClose := True.

Nun habe ich das eingebunden, funktioniert aber trotzdem nicht.

Komischer Weise habe ich ein anderes Programm bei dem es geht (bei selber Synatx).

Ich glaube langsam, dass mich Delphie verarscht

Könnte mir vielleicht irendtwer den bei ihm funktionierendem Code posten?

Vielen Dank im vorraus.

MFG

Bassel

[mkinzler]

Ein aderer Vorschlag, du postest dein Code und wir versuchen den Fehler zu finden.

[Blackheart]

Zitat von Bassel:

Das Problem:
Ich habe ein Programm, dass sich erst nach dem eingeben eines Passworts
schließen lassen soll...
Könnte mir vielleicht irendtwer den bei ihm funktionierendem Code posten?

Vielen Dank im vorraus.

MFG

Bassel

So einen Code wird wohl keiner haben, beim Öffnen könnt Ich ja noch verstehen aber beim Schließen.

[Bassel]

LOL dann wäre das ja ein "Loch", wenn man keine unbeendbare Passwortabfrage programmieren kann.

Ich meine wenn CanClose erst einmal False ist, dann kann man das Programm garnicht beenden. Das wäre doch voll nutztlos oder?

[Nils_13]

Ähm...das wolltest du doch so ? Oder habe ich dich missverstanden ? Soll es nicht "unbeendbar" sein ?

[MrKnogge]

Zitat von Bassel:

Das wäre doch voll nutztlos oder?

Warum ?
Was wenn er verhindern möchte, dass jemand das Programm auf "normalem" Wege beendet. Man könnte es zwar noch per hardkill beenden, aber dann würde OnClose und OnDestroy nicht mehr ausgeführt werden.

@Bassel
Was würde es nützen, wenn wir dir die passenden Code posten würde, wenn du schreibst dass du ihn selber schon hast.
Wenn er bei einem Projekt von dir geht, und bei einem nicht, so liegt es wahrscheinlich an etwas anderem, oder er ist fehlerhaft.
Poste mal bitte deinen OnCloseQuery-Abschnitt.

Gruß

[Add]
Sorry, hab nicht direkt gesehen, dass du auch der Threadersteller bist Bassel.
Jetzt verstehe ich allerdings nicht mehr was du ursprünglich wolltest !?

[Bassel]

Zitat von Nils_13:

... Soll es nicht "unbeendbar" sein ?

Ja erst, aber nachdem das Passwort richtig eingegeben wurde sollte es sich schließen

Irgentwie so

Code:

If PW = 1234 then begin
Application.MessageBox('Accept','Hinweis',48);
CanClose := True;
Close

[Zacherl]

Deklarier dir eine gloabale Variabele CloseQ .. nach der Kennwortbestätigung setzt du CloseQ auf true und rufst Close auf.
Im OnCloseQuery schreibst du einfach: CanClose := CloseQ;

//Edit: Btw .. man kann den Prozess weiterhin im Taskmanager schließen, das ist dir hoffentlich klar ..

Sollte gehen.

[dominikkv]

leute...was ist daran so schwierig?

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if passwortabfrage then canClose := true else canClose := False;
end;

[Zacherl]

Oder nach meiner Anleitung ..