über sendmessage Font.color einstellen

[mirage228]

Zitat von kiar:

hallo mi....

das musste mir mal erklären?
wo stell ich da die farbe ein.

danke raik

Hoi,

du könntest WinAPI mäßig einen Font erstellen:
(näheres zu CreateFont unter CreateFont --> http://msdn.microsoft.com/library/de...ntext_8fp0.asp - dort steht auch, wie du die Farbe verändern kannst. )

Delphi-Quellcode:

var
  MyFont: HFONT;
begin
MyFont := CreateFont(10, 0, 0, 0, 0, 0, 0, 0, ANSI_CHARSET,
            OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
            DEFAULT_PITCH, 'Arial');
SendMessage(Handle, WM_SETFONT, Integer(MyFont), Integer(True)); 
end;

oder mit TFont

Delphi-Quellcode:

var
  Font: TFont;
begin
  Font := TFont.Create;
  try
    Font.Assign(Edit1.Font);
    Font.Color := clRed;
    SendMessage(Handle, WM_SETFONT, Integer(Font.Handle), Integer(True));     
  finally
    Font.Free;
end;

Beides ungetestet, sollte aber funktionieren.

mfG
mirage228