Event wird nicht ausgelöst ?!

[ghost007]

Hallo,

ich wollte mir eine eigenen kleine komponente basteln.
Hierfür bin ich nach dem tutorial von dsdt vorgegangen (Link: http://www.delphi-treff.de/tutorials...en-entwicklen/)

Meine unit schaut wie folgt aus:

Delphi-Quellcode:

unit ClipBoarder;

interface

uses
  SysUtils, Classes, Messages, Windows;

type
  TChangeEvent = procedure(Sender : TObject ) of Object;
  TClipBoarder = class(TComponent)
  private
    CChangeEvent: TChangeEvent;
    procedure ClipChange(var content: TMessage); message WM_DRAWCLIPBOARD;
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property OnChange : TChangeEvent read CChangeEvent write CChangeEvent;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Clipboarder', [TClipBoarder]);
end;

procedure TClipBoarder.ClipChange(var content: TMessage);
begin
 OnChange(self);
end;

end.

Wenn ich die kompo dann auf eine forum zieh und im onchange z.b.

Delphi-Quellcode:

 ShowMessage('changed');

mache, dann passiert nichts.

Was mach ich falsch?

MfG - Ghost007

[Christian Seehase]

Moin Christian,

das funktioniert nicht, weil die Message nur an die Fenster geschickt wird, die sich als Clipboardviewer registriert haben.
Schau Dir mal die Doku dazu im MSDN an (WM_DRAWCLIPBOARD)

[ghost007]

Zitat:

Zitat von Christian Seehase

Moin Christian,

das funktioniert nicht, weil die Message nur an die Fenster geschickt wird, die sich als Clipboardviewer registriert haben.
Schau Dir mal die Doku dazu im MSDN an (WM_DRAWCLIPBOARD)

Hey,
dafür sorge ich schon ;) im form create event der form über folgenden befehl:

Delphi-Quellcode:

 SetClipboardViewer(self.Handle);

MfG - Ghost007

P.S.: Das event wird trotzdem nicht ausgelöst.

[Muetze1]

Moin!

Überschreib lieber CreateWnd um auch das neuerstellen deines Formulars im Hintergrund durch VCL Properties mit zu bekommen. Ich vermute eher, dass dein im FormCreate registrierte Fensterhandle gar nicht mehr gültig ist.

MfG
Muetze1

[ralfschwalbe]

Hallo,

du setz dein Form als Clipboardviewer hast aber dein Change-Event in einer Componente. So geht das nicht. Entweder alles im Form oder wie Muetze1 geschrieben hat, in der Compo...

[ghost007]

Zitat:

Zitat von Muetze1

Moin!

Überschreib lieber CreateWnd um auch das neuerstellen deines Formulars im Hintergrund durch VCL Properties mit zu bekommen. Ich vermute eher, dass dein im FormCreate registrierte Fensterhandle gar nicht mehr gültig ist.

MfG
Muetze1

Hm,
das komisch ist nur, wenn ich das ganze ohne komponente mach, sprich die auslöser procedure einfach in die normale form unit reinklatsche, geht es :(

[Muetze1]

Moin!

Sorry, hatte dein Beitrag nicht richtig verarbeitet. Durch deine Aussage mit der Komponente wurde mir dies klar, ich dachte du implementierst es in einem Formular.

Zu dem Problem: Die VCL empfängt die Botschaften auf dem Fenster aber sie leitet nicht alle an ihre Clients weiter. Dies macht sie nur mit besonderen Botschaften, manche werden sogar explizit von der VCL zu den internen Notifier (CN_XXX) oder Messages (CM_XXX) umgesetzt. Deine Botschaft gehört mit zu den nicht weiter geleiteten.

Lösung: Bau dir eine Komponente mit eigenem Fensterhandle und dann bekommst du die Botschaft direkt. Also Leite von TWinControl ab und registriere dich in deiner Komponente selbst als Empfänger und dann bekommst du auch die Botschaft.

MfG
Muetze1

[ghost007]

Zitat:

Zitat von Muetze1

Bau dir eine Komponente mit eigenem Fensterhandle und dann bekommst du die Botschaft direkt. Also Leite von TWinControl ab und registriere dich in deiner Komponente selbst als Empfänger und dann bekommst du auch die Botschaft.

Bleibt nur eine frage, wie registriere ich mich als empfänger? :D

MfG - Ghost007

//Edit: Oder meinst du mit registrieren, das einklicken in die clipboardviewer chain ?

[SirThornberry]

Ich glaube dir fehlt noch das Verständnis.

Mit

Delphi-Quellcode:

SetClipboardViewer(self.Handle);

Sagst du das Self.Handle eine Message bekommen soll. Self.Handle ist aber in diesem Fall dein Form da Self ja für die Instanz des Forms steht und dieses bekommt die Nachricht auch.

Wenn du willst das deine Komponente die Nachricht bekommt darfst du nicht das Handle des Forms angeben sondern musst ein Handle übergeben welches zu deiner Komponente gehört.

[ghost007]

Das hab ich spätestens nach dem beitrag von Muetze1 schon verstanden, nur welches handle geb ich der funktion dann ?
Ist meine erste kompo kenne mich damit noch nicht so aus :oops:

MfG - Ghost007

[Muetze1]

Moin!

Wie geschrieben haben alle Komponenten ab TWinControl ein Fensterhandle. Und dieses kann über die Eigenschaft Handle abgefragt werden, was TWinControl einführt. Genau diese Eigenschaft benutzt du doch schon bei der Form. Diese hat diese Eigenschaft genauso von TWinControl geerbt...

MfG
Muetze1

[Apollonius]

Ich halte es bei einer nicht-visuellen Komponente nicht für sinnvoll, von TWinControl abzuleiten. Gehe lieber so wie in TTimer vor: Mit AllocateWnd wird dort ein Fenster erzeugt, welches lediglich Nachrichten verarbeitet.

[ghost007]

Zitat:

Zitat von Apollonius

Ich halte es bei einer nicht-visuellen Komponente nicht für sinnvoll, von TWinControl abzuleiten. Gehe lieber so wie in TTimer vor: Mit AllocateWnd wird dort ein Fenster erzeugt, welches lediglich Nachrichten verarbeitet.

Jop, genau das hab ich nach einigem rumprobieren auch rausgefunden. ;)

Danke

MfG - Ghost007

P.S.: Kann leider atm nicht weitertesten ... irgdwie freezt bei mir jede application die ich compiliere ... auch eine leere form, sobald ich sie verscheiben will ...

[ghost007]

So,
mein delphi rennt wieder.

Jedoch kann ich die von Apollonius angesprochene funktion allocatewnd weder im msdn noch in der OH finden. :( wie geb ich meiner kompo ein handle ?

MfG - Ghost007

[DeddyH]

Hier mal der Konstruktor von TTimer:

Delphi-Quellcode:

constructor TTimer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FEnabled := True;
  FInterval := 1000;
{$IFDEF MSWINDOWS}
  FWindowHandle := Classes.AllocateHWnd(WndProc);
{$ENDIF}
{$IFDEF LINUX}
  FWindowHandle := WinUtils.AllocateHWnd(WndProc);
{$ENDIF}
end;

[ghost007]

danke, hat geholfen :)