BorderColor eines TWinControl-Descendants ändern

**Codehunter**

Moin!

Ich leite mir von TWinControl eine Klasse ab und verpasse der mit folgendem Code einen Rahmen:

Delphi-Quellcode:

			procedure TmyClass.MakeBorder;

var

  Style: LongInt;

begin

  Style:= GetWindowLong(Self.Handle, GWL_STYLE);

  Self.BorderWidth:= 1;

  SetWindowLong(Self.Handle, GWL_STYLE, (Style or WS_BORDER));

end;

Die Prozedur wird über WndProc und WM_PAINT aufgerufen. Das funktioniert auch soweit. Nur dummerweise ist der Rahmen in einer extrem hellen Farbe, sodass er kaum auffällt (siehe Bild). Ein bisschen dunkler wäre gut, ein SubClassing von EDIT ideal. Nur wüßte ich im Moment nicht wie das machen ist.

Grüße
Cody

BorderColor eines TWinControl-Descendants ändern

BorderColor eines TWinControl-Descendants ändern

Forumregeln