Function Felddarstellung ändern

[Reini64]

Hi,

ich möchte eine Funktion schreiben die mir die Darstellung eines Edit Feld umstellt.

ich habe folgendes aus probiert, leider ohne Erfog.

Darum die Frage: Was muss ich machen das das Funktioniert?

hier den Source von Delphi 2006 Pro. :

"e_name" ist ein EDIT Feld

Funktionsaufrauf: lesen(e_name);

Delphi-Quellcode:

function lesen(Sender: TObject): TObject;
begin
  with sender do
   begin
      Color       := farbe;
      ReadOnly    := True;
      BorderStyle := bsNone;
      BevelEdges  := [beBottom];
      BevelInner  := bvNone;
      BevelKind   := bkTile;
   end;
end;

Die Fehlermeldung die ich bekomme : [Pascal Fehler] f_6100.pas(147): E2003 Undefinierter Bezeichner: 'Color'.

Danke

Reinhard

[TheAn00bis]

Vielleicht so? Er weiß ja nicht, dass Sender ein TEdit ist...

Delphi-Quellcode:

function lesen(Sender: TObject): TObject;
begin
  with sender as TEdit do
   begin
      Color       := farbe;
      ReadOnly    := True;
      BorderStyle := bsNone;
      BevelEdges  := [beBottom];
      BevelInner  := bvNone;
      BevelKind   := bkTile;
   end;
end;

[Reini64]

Danke das war's.

[Hawkeye219]

Hallo Reinhard,

Du greifst nach dem Aufruf der Funktion hoffentlich nicht auf deren Rückgabewert zu, der ist nämlich undefiniert...

Gruß Hawkeye