über sendmessage Font.color einstellen

[kiar]

hallo,

wie kann ich in einem Tedit die Farbe der schrift einstellen:sendmessage(handle,em_ :gruebel:,0,0) raik

[mirage228]

SendMessage(Handle, WM_SETFONT, Integer(Font.Handle), Integer(True)); Edit: Font ist hier vom Typ TFont. Dort kannst du die Farbe ändern, du musst aber das Font-Handle vom Typ HFONT an SendMessage übergeben.

mfG
mirage228

[Luckie]

Edit1.Font.Color := clRed; Oder muss es mit Sendmesaage sein? Das ist nicht so einfach.

[kiar]

hallo mi....

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

danke raik

[kiar]

hallo luckie,

[ot] habe schon schlechtere bilder von dir gesehen [/ot]

wuerde mich interessieren.

Zitat:

Oder muss es mit Sendmesaage sein? Das ist nicht so einfach.

darum frag ich.
raik

[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