ableiten von klassen und überschreiben von ereignissen

[kiar]

folgendes problem, ich leite eine klasse von TCustomControl ab

Delphi-Quellcode:

type
  TZustand = (zOn, zOut); 
  TBrandmeldung = class(TCustomControl)

   private
     
     FZustand:TZustand;
     
   protected                            
     
   public
     constructor Create(Aowner :TComponent); override;
     destructor  Destroy; override;
     procedure Paint; override;
     property Zustand: TZustand read FZustand write FZustand ;
end;

als nächstes leite ich von diser klasse ab;

Delphi-Quellcode:

type
   TMelderTyp = (mThermisch, mOptisch, mMulti); 
   TMelder = class(TBrandmeldung)
   private

   public
     constructor Create(Aowner: TComponent); override;
     destructor Destroy;override;
     procedure Paint;override;
     procedure MouseDown(Button:TMouseButton;Shift: TShiftState;x,y:Integer);override;
     procedure MyClick(Sender :TObject);  
     property Onclick;
end;

wenn ich nun einen klick auf die TMelderKlasse mache, um den zustand zu ändern, muss ich 3 mal klicken, bis der zustand- in gestalt einer anderen farbe - sich ändert.

wo liegt mein fehler? :wall:

zum test habe ich mousedown überschrieben und dort das onclick ereignis zugewiesen. in myclick ändere ich nur den status - wenn zon ,dann zout und umgekehrt.

[Christian Seehase]

Moin Kiar,

wie sieht denn Deine OnClick Routine aus, mit der Du es versuchst?

[kiar]

hi chris

Delphi-Quellcode:

procedure TMelder.myClick(Sender:TObject);
begin

     if fZustand = Zout then
        begin 
          FZustand:= Zon;
          canvas.pen.color:=Clred
        end else
          begin
            FZustand:= Zout;
            canvas.pen.color:=clyellow;
          end;
        
end;

im Create weise ich dem onclick das myclick-ereignis zu.

raik

[Jens Schumann]

Hallo,
schau Dir mal dies Beispiel an. Das funktioniert

Delphi-Quellcode:

unit Unit1;

interface

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

type

  TMelder = class(TCustomPanel)
  private
    FZustand : Boolean;
  protected
    procedure Click; override;  
  public
    constructor Create(AOwner : TComponent);
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TMelder }

procedure TMelder.Click;
begin
  FZustand:=Not FZustand;
  Case FZustand Of
    False : Color:=clBtnFace;
    True  : Color:=clLime;
    end;
  inherited Click;
end;

constructor TMelder.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle - [csAcceptsControls,csSetCaption];
end;

{ TForm1}

procedure TForm1.FormCreate(Sender: TObject);
var
  MyMelder : TMelder;
begin
  MyMelder:=TMelder.Create(Self);
  MyMelder.Parent:=Self;
  MyMelder.Left:=50;
  MyMelder.Top:=20;
end;

end.

[kiar]

hallo jens , wir hatten schon ma das vergnügen ging um ein ähnliches problem :cheers:
raik

jens ich leite aber von TBrandmeldung ab, ich denke, das Fzustand durch den aufruf der paint methode immer wieder gesetzt wird.

eigentlich ist es besser, fZustand als boolean zu setzen, aber wenn ich mehrere zustände habe, oder mehrere Typen wird es mit boolean nicht gehen