Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
27. Nov 2007
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var pos:Tpoint;
text:array of char;
begin
getcursorpos(pos);
sendmessage(windowfrompoint(pos),wm_gettext,50,integer(@text));
edit1.text:=text;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
27. Nov 2007
Das hast du richtig erfasst :zwinker:
Die eine Message wäre BM_SetCheck
Und die andere sieht nach WM_setText aus.
windowfrompoint(getcursorpos)