IP-Eingabefeld: Während des Designs sichtbar

[Helmi]

Hallo,

ich hab mir Luckies Beispiel über das IP-Eingabefeld angeschaut und würd das gerne in mein Projekt mit übernehmen.

Folgendes hab ich mal als Test programmiert:

Code:

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;

Das klappt auch wunderbar und schaut mit dem XP-Manifest auch sehr gut aus.

Was mich ein wenig daran stört ist, dass das Eingabefeld nur zur Laufzeit sichtbar wird aber nicht im Design-Modus.
(ja ja - ich weiss: oben steht Button1 - das ist nur als Test da; normalerweise würd ich diesen Code oben in das OnCreate des Fensters packen )

Und dann noch ne kurze Frage, die dazu passt: Wie komm ich an die eingegebene IP-Adresse ran?