Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
Delphi XE2 Professional
|
Re: IP-Adresse: Schriftart, Schrifthöhe, Tabstop verändern?
24. Apr 2005, 11: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! <<
|
|
Zitat
|