Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

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

 
BAHO ©   (2002-05-10 02:22) [0]

Здравствуйте...
Подскажите как при наведении курсора мышки на
кнопку в чужом окне получить её хендл(thandle) ?
Спасибо...


 
BAHO ©   (2002-05-10 02:24) [1]

Но тока кнопки ...!
надо поставить чтото воде фильтра
если кнопка то передать ее хендл
а если нет то передать nil...!


 
Дремучий ©   (2002-05-10 11:52) [2]

>>Но тока кнопки ...!
Не совсем правильная постановка -
не всякая кнопка имеет хендл.
например TBitBtn имеет,
а TSpeedButton не имеет.

это так интуитивно, надо в исходники смотреть
могу ошибаться, МАСТЕРА поправят.


 
MBo ©   (2002-05-10 11:58) [3]

WindowFromPoint
ChildWindowFromPoint


 
demon-777 ©   (2002-05-10 12:26) [4]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Edit1: TEdit;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

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.


Попробуй это.


 
BAHO ©   (2002-05-11 00:28) [5]

Спасибо...!



Страницы: 1 вся ветка

Текущий архив: 2002.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-73165
mifi
2002-05-13 23:08
2002.05.23
рлык TO form


1-73162
Mikeee
2002-05-14 02:17
2002.05.23
Вставить значение в ячейку EXCEL...


6-73322
Malder
2002-03-10 13:12
2002.05.23
Как сделать редирект ?


3-72998
Rub
2002-04-25 15:07
2002.05.23
Посоветуйте, кто имел дело.....


14-73394
VID
2002-04-16 00:58
2002.05.23
А теперь ICQ тормозит!