Avatar billede jisch Mester
04. april 2020 - 10:21

Delphi Component - Enabled

Delphi 2009: Jeg vil oprette en Component MyPanel = class(TPanel). TPanel har i forvejen en Property Enabled. Jeg vil tilføje kode i Enabled (noget med ændring af Bevel) ved f.eks. MouseEnter. Når Enabled:=False skal der ikke ske noget! Min kode vedr. Enabled ser således ud:

type
  TMyPanel = class(TPanel)
    Procedure MouseEnter; Override;
    Procedure MouseExit; Override;
  private
    FEnab: Boolean;
    Procedure SetEnab(aEnab:Boolean);
  public
    constructor Create(AOwner: TComponent); override;
  published
    Property Enabled: Boolean Read FEnab Write SetEnab;
.
.
constructor TMyPanel.Create(AOwner: TComponent);{Efter implementation }
begin
  inherited Create(AOwner);
End;
.
.
Procedure TMyPanel.SetEnab(aEnab: Boolean);
Begin
  FEnab:=aEnab;
  If aEnab=False Then Begin
    //Kode for Enabled=False
  End
  Else Begin
    //Kode for Enabled=True
  End;
End;

Mit problem: Når jeg i et program som bruger compont'en sætter Enabled:=False virker Mouse-events som om Enabled = True??
Kan nogen hjælpe?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester