Hallo
Ich hoffe ich habe jetzt nicht unnötig einen neuen Thread erstellt, denn ich habe nichts zu mein problem gefunden.
Und zwar habe ich ein Programm wo eine 3 Editboxen vorhanden sind,
diese möchte ich aber duch ein Programm Befüllen.
Ich habe einen Stringgrid mit verschiedenen Werten, wenn ich auf eine Zelle Betätige, dann nimmt er die komplette Zeile und soll diese in die 3 Editboxen Befüllen, leider aber leider bekomm ich das nicht hin.
Ab eine Anweisung noch mit reingebaut, dass er eine Meldung abgeben soll, wenn die ControlId nicht vorhanden ist.
Delphi-Quellcode:
procedure TForm1.SetEditText(
const AControlId: Integer;
const AText:
String);
var
LWnd: HWND;
// Windows API, Erfordern ein Fenster Handle
begin
SetLastError(0);
LWnd := FindWindow('
#32770', '
InputSearchDlg');
LWnd := GetDlgItem(LWnd, AControlId);
//LWnd := FindWindowEx(LWnd, 0, 'Edit', nil);
if LWnd <> 0
then
begin
if not SetWindowTextW(LWnd, PWideChar(WideString(AText)))
then
ShowMessage(SysErrorMessage(GetLastError));
end else
begin
windows.beep(400,100);
messagebeep(MB_ICONERROR );
end;
end;
ich hoffe ihr könnt damit was anfangen, schon mal danke im Vorraus.