JvItemsPanel1 OnMouseMove + OnMouseLeave

[youuu]

lbccaleb ist es auch möglich noch die einzelnen Items zu unterscheiden, auf welchen die mouse nicht mehr ist und auf welchen sie ist?

[lbccaleb]

Ja ist es, schau dir mal die Funktion

Delphi-Quellcode:

function GetItemAt(X, Y: Integer): Integer;

an!

[youuu]

Zitat:

Zitat von lbccaleb

Ja ist es, schau dir mal die Funktion

Delphi-Quellcode:

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;

[lbccaleb]

Du weißt schon das es jetzt ne neue Komponente ist, und du Sie zu deinem Delphi-Reiter hinzufügen must? Oder du erstellst Sie einzeln zur Laufzeit!

Edit:
Delphi -> Component -> install Component

Edit2:
Wieso hast du denn die Abgeleitete Komponente umbenannt? Du hättest doch einfach die Unit aus meinem Bsp. Projekt nehmen können...

[youuu]

Ja nur wie bei Delphi 2009? als ich deine Komponente installieren wollte gab es nur Fehlermeldungen.
vcljpg Package nicht gefunden z.B

Das umbenennen habe ich rückgängig gemacht hatte da nur rumgetestet ;)

Aber krieg die Installation nicht hin

[lbccaleb]

Hast du die Suchpfade gesetzt??

[youuu]

Nein, ich habe angenommen, das Delphi die selber sucht.

Musste sowas noch nie tun, daher stell ich mich auch so extrem doof an :(

[lbccaleb]

Zitat:

Zitat von youuu

Nein, ich habe angenommen, das Delphi die selber sucht.

Musste sowas noch nie tun, daher stell ich mich auch so extrem doof an :(

Ist ja nicht so wild :lol:

Probier mal mit setzen der suchpfade ob er dann die kompo ordentlich erkennt, wenn ja bekommst du ja in dem Reiter "Beispiele" Das TJVOwnItemsPanel! Diese kannst du dann auf der Form plazieren, wie das alte und die Funktionen im OI auswählen!

[DeddyH]

Man hätte dafür aber nicht unbedingt eine neue Komponente erstellen und installieren müssen. Aber wenn es so geht, lass es so, schließlich wollen wir Dich nicht noch mehr verwirren :)

[youuu]

[DCC Fehler] OwnItemsPanelCombo.dpk(34): E2199 Die Packages 'vcljpg' und 'vclimg' enthalten beide die Unit 'jpeg'

edit: ok hat geklappt ;)