Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

Как узнать какая структура находится под крысой: ListBox, Edit, Button и т.д. 


Renard   (2002-01-15 23:15) [0]

Сабж. Если не трудно приведите пример плз.



Dimaond Cat   (2002-01-16 00:16) [1]

Пример приведенный ниже будет работать только на твоей форме, если надо сделать рабочесть по всем окнам, то можно сделать проверку по таймеру (но это не красиво) либо через общий перехват сообщений.
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private

{ Private declarations }
public
procedure mymes(var mes:Tagmsg;var Handled:boolean);
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure Tform1.mymes(var mes:Tagmsg;var Handled:boolean);
var
c:Array [0..max_path] of char;
begin
if mes.message=wm_mousemove then
begin
getclassname(windowfrompoint(mes.pt),c,sizeof(c));
form1.Caption:=c;
end;
inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage:=mymes;
end;

end.



Renard   (2002-01-16 04:08) [2]

Спасибо




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
3-42952           Font Hunter           2002-02-15 13:12  2002.03.14  
Перекодировка при перекачке данных из Paradox в Interbase


1-43067           PEC                   2002-02-27 07:47  2002.03.14  
Проблема помогите!


3-42950           Ольга                 2002-02-15 10:53  2002.03.14  
открытие файла


3-42924           lel (A)               2002-02-13 10:24  2002.03.14  
Oracle, Delphi 3, BDE 4,5 редактор полей , а может что нибудь еще???


14-43142          Dimka Maslov          2002-01-29 09:54  2002.03.14  
Неисповедимы пути его...