Текущий архив: 2003.12.12;
Скачать: CL | DM;
Вниз
Окно! Найти похожие ветки
← →
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-))
← →
DeMoN-777 © (2003-11-30 11:56) [4]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.
Страницы: 1 вся ветка
Текущий архив: 2003.12.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
