Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c