fokus problem på Tpanels

du kunne jo lave en fælles function for alle mouseenter og leave beskeder.

fx
procedure OnMouseLeave(sender:tobject);
begin
// loop alle dine panels igennem og alle undtagen sender skal skifte til clwhite
end;

er sku for træt til at lave noget kode p.t. men kommer jo nok lidt senere idag så :)

Det vil være meget nemmere hvis du laver et par nye komponenter TNewLabel og TNewPanel der har fået tilføjet OnMouseLeave og OnMouseEnter.
Det gøres sådan:

Du laver et nyt component der bygger på TLabel (eller TPanel) hvor der er tilføjet følgende events: OnMouseEnter og OnMouseLeave.

Du laver en unit med følgende indhold:

//******************************************************
unit NewLabelunit;

interface

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

type
  TEnterEvent = procedure(Sender: TObject) of object;
  TLeaveEvent = procedure(Sender: TObject) of object;
  TNewLabel = class(TLabel)
  private
    { Private declarations }
    FOnEnter: TEnterEvent;
    FOnExit: TLeaveEvent;
    procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseEnter: TEnterEvent read FOnEnter write FOnEnter;
    property OnMouseLeave: TLeaveEvent read FOnExit write FOnExit;

  end;

procedure Register;

implementation

procedure TNewLabel.CMMouseEnter(var msg: TMessage);
begin
  inherited;
 
  if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TNewLabel.CMMouseLeave(var msg: TMessage);
begin
  inherited;
  if Assigned(FOnExit) then FOnExit(self);
end;

procedure Register;
begin
  RegisterComponents('Additional', [TNewLabel]);
end;

end.
//******************************************************
Denne unit gemmer du og registrerer som et nyt component.
Når det er installeret har du et component der hedder TNewLabel som findes under Additional, Det fungerer fuldstændigt som TLabel bortset fra de 2 nye events

//Erik

Det var et svar

hvilken version af delphi bruger du sharon?

dkn:
d5 interprise

eht:
Jeg bruger helst ikke componenter som ikke er standard
og onmousemove er god nok...

dit eksempel løser ikke mit problem, da det ikke er et focus problem på labels
men på panels.
da jeg bruger onmousemove når label har focus, og onmousemove på form når jeg forlader label, og det virker perfekt, det jeg var ude efter var en bedre styring
uden at skulle lave en masse junkcoding,
og for at optimere koden og gøre den hurtigere.

Jeg forstår godt din skepsis over for komponenter. De mange komponenter man kan finde, har da en blandet kvalitet.
Men den ændring af komponenterne jeg foreslår, er blot en lille bitte tilføjelse til standardkomponenterne, og det har aldrig givet problemer.
Jeg har ofte undret mig over at det ikke er standard med mouseEnter og mouseLeave.

lukker