Zitat von
Larsi:
und wie kann ich den namen auslesen
Delphi-Quellcode:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var pos:Tpoint;
text:array[0..49] of char;
begin
getcursorpos(pos);
sendmessage(windowfrompoint(pos),wm_gettext,50,integer(@text));
edit1.text:=text;
end;
Einfach die Maus vom Formular gedrückt zu einem anderen Fenster ziehen und dann loslassen.