IP-Adresse: Schriftart, Schrifthöhe, Tabstop verändern?

[Helmi]

Hallo,

ich hab mir mal wieder das IP-Adresse-Beispiel von Luckie angeschaut und hätte dazu ein paar Fragen.
Aber erst mal ein bischen Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
   hIpAddr: Integer; 
  wnd: THandle; 

begin 
  wnd := Form1.Handle; 

   // IP-Adresse 
  hIpAddr := CreateWindowEx(WS_EX_CLIENTEDGE, WC_IPADDRESS, nil, 
                    WS_VISIBLE or WS_CHILD,10,20,120,21,wnd,IDC_IPCTRL, hInstance, nil); 

  If(hIpAddr <> 0) then 
     SendMessage(hIpAddr, IPM_SETADDRESS, 0, MAKEIPADDRESS(127,0,0,1)); 
end;

Frage 1: Wie kann ich die Schriftart und Schrifthöhe verändern?
Frage 2: Wie kann ich dem Feld einen TabStop geben?

[s.h.a.r.k]

ich kann dir zwar direkt nicht weiterhelfen, aber es gibt eine Komponente, die nennt sich TJvIpAddress und ist im JEDI-Package enthalten!

Hab mal ein Beispiel in den Anhang getan -.-

[Helmi]

Hallo

ich möcht Jedi nicht benutzen

[Luckie]

Mit CreateFont eine Schrift erstellen und mit WM_SETFONT zuweisen.

[Helmi]

Hallo

ich hab mich jetzt mal etwas damit beschäftigt und bin bezüglich der Schriftart auf das gekommen:

Delphi-Quellcode:

var
  wnd: THandle;
  Swnd: THandle;
  Schrift: TFont;

begin
  wnd := Form1.Handle;
  Schrift := TFont.Create;

  with Schrift do
    begin
      Charset    := DEFAULT_CHARSET;
      Color      := clBlack;
      Name       := 'MS Sans Serif';
      Size       := 10;
      Style      := [];
    end;

  Swnd := Schrift.Handle;

   // IP-Adresse
  hIpAddr := CreateWindowEx(WS_EX_CLIENTEDGE, WC_IPADDRESS, nil,                   WS_VISIBLE or WS_CHILD, 10, 20, 120, 21,wnd, IDC_IPCTRL, hInstance, nil);

  If(hIpAddr <> 0) then
    begin
       SendMessage(hIpAddr, IPM_SETADDRESS, 0, MAKEIPADDRESS(127,0,0,1));
      SendMessage(hIpAddr, WM_SetFont, Swnd, 1);
    end;

Jetzt hätt ich nur noch ne Frage, wie ich diesem "Edit" einen TabStop geben kann?

[edit=Christian Seehase]Delphi-Tags korrigiert Mfg, Christian Seehase[/edit]