Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Frage zu Ereignissen. (https://www.delphipraxis.net/10524-frage-zu-ereignissen.html)

Evian 20. Okt 2003 15:13


Frage zu Ereignissen.
 
Kann man Ereignissen, wärend der Laufzeit eines
Programms andere Prozeduren zuweisen? MEin Programm
erzäugt wärend der Laufzeit ein Dublikat seiner Hauptform,
doch wäre es schön, wenn bei der neuen Form nicht auch beim
closequerry Event nachgefragt würde ob man das Programm auch
wirklich beenden will. Gibt es eine Möglichkeit, dann dem
closequerry Event der neuen Form eine andere Prozedur zuzuweisen?

MFG

Evian

Stanlay Hanks 20. Okt 2003 15:21

Re: Frage zu Ereignissen.
 
Hallo. Einfach schreiben:
Delphi-Quellcode:
NeuesForm.OnCloseQuery := nil;
Das müsste gehen.

Wenn du eine ganz andere Prozedur zuweisen willst, musst du eine eigene Prozedur erstellen, deren Kopf so aussieht:

Delphi-Quellcode:
procedure TOriginalForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //Ich hab das Form jetzt einfach mal "OriginalForm" genannt.
begin
 ShowMessage('Hallo');
end;
diese Prozedur kannst du dann so zuweisen:
Delphi-Quellcode:
NeuesForm.OnCloseQuery := OriginalForm.FormCloseQuery;
Man liest sich, Stanlay :hi:

Christian Seehase 20. Okt 2003 15:22

Re: Frage zu Ereignissen.
 
Moin Evian,

klar, das geht:

Angenommen, Du hast eine Variable in der der Name des Formulares steht könntest Du das OnClose so löschen.
Delphi-Quellcode:
NeuesForm.OnClose := nil;
Ersatzweise könntest Du natürlich auch einfach eine andere Routine zuweisen, solange deren Header passt.
Dazu müsstest Du hier unter Hier im Forum suchenOnClick einige Erklärungen finden.

Evian 20. Okt 2003 15:29

Re: Frage zu Ereignissen.
 
Danke euch ... hätt ich eigendlich auch druff kommen müssen..., aber bin einfach mal wieder zu blöd!!! :) Also thx


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz