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?