Zitat von
lbccaleb:
Ja ist es, schau dir mal die Funktion function GetItemAt(X, Y: Integer): Integer;
an!
Super danke.
Ich muss leider sagen irgendwie ist heute der Wurm bei mir drin, ich weiß nicht wieso ich mich so doof anstelle.
Ich habe nun den Code in mein Programm übernommen nur es passiert rein gar nichts.
Delphi-Quellcode:
unit JvItemsPanelEvents;
interface
uses
Messages, SysUtils, Classes, Controls, ExtCtrls, JvExExtCtrls, JvExtComponent, JvItemsPanel;
type
TJvItemsPanel1 =
class(TJvItemsPanel)
private
{ Private-Deklarationen }
FOnMouseEnter: TNotifyEvent;
FOnMouseLeave: TNotifyEvent;
procedure CMMouseEnter(
var Message: TMessage);
message CM_MOUSEENTER;
procedure CMMouseLeave(
var Message: TMessage);
message CM_MOUSELEAVE;
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
published
{ Published-Deklarationen }
property OnMouseEnter: TNotifyEvent
read FOnMouseEnter
write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent
read FOnMouseLeave
write FOnMouseLeave;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Beispiele', [TJVItemsPanel]);
end;
procedure TJvItemsPanel1.CMMouseEnter(
var Message: TMessage);
begin
if assigned(FOnMouseEnter)
then FOnMouseEnter(Self);
end;
procedure TJvItemsPanel1.CMMouseLeave(
var Message: TMessage);
begin
if assigned(FOnMouseLeave)
then FOnMouseLeave(Self);
end;
end.
Delphi-Quellcode:
procedure JvItemsPanel1MouseEnter(Sender: TObject);
begin
Showmessage('Enter');
end;
procedure JvItemsPanel1MouseLeave(Sender: TObject);
begin
Showmessage('Leave');
end;