AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi JvItemsPanel1 OnMouseMove + OnMouseLeave
Thema durchsuchen
Ansicht
Themen-Optionen

JvItemsPanel1 OnMouseMove + OnMouseLeave

Ein Thema von youuu · begonnen am 10. Mai 2009 · letzter Beitrag vom 10. Mai 2009
 
youuu

Registriert seit: 2. Sep 2008
Ort: Kleve
822 Beiträge
 
Delphi 2010 Professional
 
#13

Re: JvItemsPanel1 OnMouseMove + OnMouseLeave

  Alt 10. Mai 2009, 17:51
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:
Uses
  JvItemsPanelEvents
Delphi-Quellcode:
procedure JvItemsPanel1MouseEnter(Sender: TObject);
begin
  Showmessage('Enter');
end;

procedure JvItemsPanel1MouseLeave(Sender: TObject);
begin
  Showmessage('Leave');
end;
Steven
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz