AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Panel mit MouseEnter/Exit nachrüsten ?

Ein Thema von Hansa · begonnen am 24. Mär 2008 · letzter Beitrag vom 26. Mär 2008
Antwort Antwort
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#1

Panel mit MouseEnter/Exit nachrüsten ?

  Alt 24. Mär 2008, 22:01
Hi,

hat jemand das schon mal gemacht ? Wenn ja, wie ? In der VCL habe ich gesehen, dass das beim Label mit message gemacht wird CM_MOUSEENTER etc. Kann man das eventuell abkupfern ? Ich brauche folgende Ereignisse :
  • OnMouseEnter
  • OnMouseLeave
  • OnClick

und das :
  • TabOrder
  • TabStop
  • Canvas

Oder gibt es eine einfache Komponente, die ich übeersehen habe, die das alles hat ?
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Panel mit MouseEnter/Exit nachrüsten ?

  Alt 24. Mär 2008, 23:01
Hallo,

CM_MOUSEENTER CM_MOUSELEAVE wäre doch schon mal was.

Edit:
Zitat von Hansa:
Ich brauche folgende Ereignisse :
...
  • OnClick
Oder gibt es eine einfache Komponente, die ich übeersehen habe, die das alles hat ?
OnClick ist doch eigentlich beim TPanel schon dabei.
Und OnMouseEnter sowie OnMouseLeave sind schon bei Delphi 10 mit dabei.

Zitat von Hansa:
Kann man das eventuell abkupfern ?
Für sowas ist doch der Sourcecode der VCL da.

EDIT:

Hier das ganze nochmal ohne Komponente:
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TPanel = class(ExtCtrls.TPanel)
  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
    property Canvas;
    property TabOrder;
    property TabStop;
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    procedure PanelMouseEnter(Sender: TObject);
    procedure PanelMouseLeave(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TPanel.CMMouseEnter(var Message: TMessage);
begin
  if assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;

procedure TPanel.CMMouseLeave(var Message: TMessage);
begin
  if assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;

procedure TForm1.PanelMouseEnter(Sender: TObject);
begin
  if Sender is TPanel then
  begin
    TPanel(Sender).Canvas.Brush.Color:= clRed;
    TPanel(Sender).Canvas.TextOut(10, 10, 'MouseEnter');
  end;
end;

procedure TForm1.PanelMouseLeave(Sender: TObject);
begin
  if Sender is TPanel then
  begin
    TPanel(Sender).Canvas.Brush.Color:= clRed;
    TPanel(Sender).Canvas.TextOut(10, 10, 'MouseLeave');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel2.OnMouseEnter:= PanelMouseEnter;
  Panel2.OnMouseLeave:= PanelMouseLeave;
  Caption:= inttostr(Panel2.TabOrder);
end;

end.
Angehängte Dateien
Dateityp: zip panel_185.zip (196,6 KB, 21x aufgerufen)
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#3

Re: Panel mit MouseEnter/Exit nachrüsten ?

  Alt 26. Mär 2008, 01:05
Das geht tatsächlich mit VCL-Abkupfern. Thx @Bitsetter. Der Fall eignet sich allerdings auch dazu, auf einfache Weise zu zeigen, wie bereits vorhandene Komponenten erweitert/nachgerüstet werden können. Siehe Anhang.
Angehängte Dateien
Dateityp: dpk dpkpanel_227.dpk (552 Bytes, 9x aufgerufen)
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#4

Re: Panel mit MouseEnter/Exit nachrüsten ?

  Alt 26. Mär 2008, 01:44
Du solltest vielleicht schon die ExtPanel.pas noch dazuhängen.

Eigentlich hätte ich, nach dem was Du sonst in der DP von Dir gibst, gedacht, dass Du das alleine hinbekommst. So kann man sich täuschen.
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#5

Re: Panel mit MouseEnter/Exit nachrüsten ?

  Alt 26. Mär 2008, 01:51
Das war eine Vorfrage mit immerhin einer Antwort.

Zitat von Die Muhkuh:
..So kann man sich täuschen.
Genau. Da ihr das alles ja aus dem effeff kennt besteht kein Anlass mehr richtige Datei jetzt anzuhängen.
Gruß
Hansa
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 18:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz