Gui Controls abfragen

[mtbf40]

Hallo,

hat schon mal jemand einen Erfolg erziehlt und mit <GetDlgItemText> einen Wert aus einer Edit Box bekommen?

Code: Alles auswählen

procedure winDlgTest.DoRun;
var
  Msg: String;
  Buffer1: Array[0..20] of Char;
  Buffer2: Array[0..255] of Char;
  wnd, txt,Text: integer;
begin
{
1838012 - WinHandle (Window Class  #32770)
1127    - ID von Edit Box
}
  wnd  := GetDlgItem(1838012,1127); -> erhalte Wert
  txt  := GetDlgItemText(wnd, 1127, Buffer1, 256); {-> kein Wert}
  txt  := GetDlgItemText(1838012, 1127, Buffer1, 256); {-> kein Wert}
  Text := GetWindowText(wnd,Buffer2, 256);
  Msg  := Buffer2[0];
  Terminate;
end;