Dann hast du mich falsch verstanden. Ich habe quasi folgendes:
Delphi-Quellcode:
type
TMyForm = class(TForm)
private
AppMessages : TApplicationEvents;
procedure AppMessagesOnMessage(var Msg: tagMSG; var Handled: Boolean);
public
constructor Create(AOwner : TComponent); override;
end;
constructor TMyForm .Create(AOwner : TComponent);
begin
inherited;
AppMessages := TApplicationEvents.Create(Self);
AppMessages.OnMessage := AppMessagesOnMessage;
end;
procedure TMyForm .AppMessagesOnMessage(var Msg: tagMSG;
var Handled: Boolean);
begin
// Hier eine Menge MEssage-Behandlung
end;
Und wenn ich nun eine neue Form erzeuge, die von TMyForm erbt, also z.B.
Delphi-Quellcode:
type
TNeueForm = class(TMyForm)
end;
Dann habe ich im Formulareditor ein ApplicationEvent, welches eigentlich unsichtbar hätte bleiben sollen, da es ja nur intern verwendet wird!
Gruß,
Dominik