Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#5

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

  Alt 24. Apr 2005, 10:20
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]
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat