Окно!

← →
Ivolg (2003-11-29 20:16) [0]

Здрасьте!Как зделать прииножатьи на приложение(любое) его заголовок
окна передавался в TEdit!Спасибо всем!

← →
hooker (2003-11-29 20:20) [1]

hook

← →
Ig (2003-11-30 00:14) [2]

Смотри сообщения Windows (что-то вроде " GetWindowText" или " GetText"), точно не помню. :)

← →
mfender © (2003-11-30 09:21) [3]

> <Ig> (30.11.03 00:14) [2]
> Смотри сообщения Windows (что-то вроде "GetWindowText" или
> "GetText"), точно не помню. :)

GetWindowText - это чтобы его title получить. А ему же еще передать в свою программулину его надо... 8-))

procedure TForm1.Timer1Timer(Sender: TObject);
var
h : HWND;
n : integer;
s : string;
begin
h := WindowFromPoint(Mouse.CursorPos);
if h <> 0 then begin
n := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
SetLength(s, n);
SendMessage(h, WM_GETTEXT, WPARAM(n), LPARAM(PChar(s)));
Edit1.Text := s;
end
else
edit1.Text:="Здесь отобразится текст";
end;

end.

Окно! Найти похожие ветки