Autor Beitrag
Alrik
Hält's aus hier
Beiträge: 6



BeitragVerfasst: Di 11.03.03 20:52 
Hallo

Wie schafft man es, dass ein Script wenn jemand auf Beenden nicht geschlossen wird?
mars
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 238

Debian Woody, Win 2000, Win XP
D7 Ent, Kylix 3
BeitragVerfasst: Di 11.03.03 21:05 
Wenn du mit Script ein Formular meinst, ist die folgende Prozedur die richtige für dich:
ausblenden Quelltext
1:
2:
3:
4:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

end;

Du kannst nun Canclose auf False setzen und das Formular kann nicht geschlossen werden
(auf jeden Fall nicht auf diese Weise.. :wink: )
FriFra
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 557

Win XP Prof, Win XP Home,Win Server 2003,Win 98SE,Win 2000,Win NT4,Win 3.11,Suse Linux 7.3 Prof,Suse Linux 8.0 Prof
D2k5 Prof, D7 Prof, D5 Standard, D3 Prof, K3 Prof
BeitragVerfasst: Di 11.03.03 21:11 
Es geht aber auch folgendes:
ausblenden Quelltext
1:
2:
3:
4:
procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin

end;


Wobei Action folgende Werte zugeordnet werden können:
caNone = Das Formular darf nicht geschlossen werden, daher geschieht nichts.
caHide = Das Formular wird nicht geschlossen, sondern lediglich verborgen. Die Anwendung kann nach wie vor auf das Formular zugreifen.
caFree = Das Formular wird geschlossen und sein Speicher freigegeben.
caMinimize = Das Formular wird nicht geschlossen, sondern als Symbol angezeigt.
Böser Borstel
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 154



BeitragVerfasst: Mi 12.03.03 12:38 
Titel: kleiner scherz
sag doch einfach form.enable = FALSE
mars
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 238

Debian Woody, Win 2000, Win XP
D7 Ent, Kylix 3
BeitragVerfasst: Mi 12.03.03 23:37 
Titel: Re: kleiner scherz
Böser Borstel hat folgendes geschrieben:
sag doch einfach form.enable = FALSE


Nun, das ist wohl etwas übers Ziel hinausgeschossen, nicht? :wink:
Böser Borstel
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 154



BeitragVerfasst: Do 13.03.03 08:05 
Titel: Tja
Das weiß ich selber, aber dann kann man das Fenster auch nicht schließen. Die Frage ist doch damit dann beantwortet
DeCodeGuru
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 1333
Erhaltene Danke: 1

Arch Linux
Eclipse
BeitragVerfasst: Do 13.03.03 09:48 
also ich benutze immer ne boolsche Variable, welche ich je nach Laune :wink: auf True oder False stelle - jenachdem, ob sich das Formular schließen darf.

Im OnCloseQuery-Ereignis benutze ich dann immer den Code:

ausblenden Quelltext
1:
2:
3:
4:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := IsCloseEnabled; //IsCloseEnabled = boolsche Variable;
end;

_________________
Viele Grüße
Jakob