Thema: Delphi Was ist hieran falsch?

Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Was ist hieran falsch?

  Alt 21. Aug 2003, 01:40
Nein. Das habe ich dir doch gerade gesagt. Da Label1MouseEnter eine Methode von TForm1 ist, bezeichent self das Formular1.

Mach mal einen Button auf dein Formular, Doppelklick darauf und dann schreib mal:
  ShowMessage(self.Caption); Aber da ich mir schon fast dachte, dass du es nicht hinbekommst, deswegen habe ich dir in der Zwischenzeitz mal schnell was gemacht:
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure MyLabelMouseEnter(Sender: TObject);
    procedure MylableMouseLeave(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyLabelMouseEnter(Sender: TObject);
begin
  with (Sender as TLabel) do
  begin
    Font.Color := clRed;
  end;
end;

procedure TForm1.MylableMouseLeave(Sender: TObject);
begin
  with (Sender as TLabel) do
  begin
    FOnt.Color := clBlack;
  end;
end;
Du mußt deinen Labels jetzt nur noch die Methoden MyLabelMouseEnter und MyLabelMouseLeave im OI zuweisen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat