Kriege es einfach nicht hin.
Delphi-Quellcode:
type
TJvItemsPanel = class(TPanel);
private
{ Private-Deklarationen }
FOnMouseLeave: TNotifyEvent;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
public
{ Public-Deklarationen }
published
{ Published-Deklarationen }
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;
Delphi-Quellcode:
procedure TFormKunden.JvItemsPanel1.CMMouseLeave(var Message: TMessage);
begin
if assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;
Wirft er mir nur Fehler raus und kann nicht compelieren.
TJvItemsPanel.CMMouseLeave(var Message: TMessage);
Ist schon nicht korrekt