개체 검사기가없는 OnMouseMove

Question

내 응용 프로그램에는 350 개의 편집 필드가 있으며 모든 필드에 OnMouseMove 이벤트가 있어야합니다. 내가 그들 모두를 위해이 코드를 생성 한 :

... 

type 

...  
procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); 
procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);  
... 

implementation 

{$R *.dfm} 

...  
procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, 
    Y: Integer); 
begin 
    Edit1.SetFocus(); 
end; 

procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X, 
    Y: Integer); 
begin 
    Edit2.SetFocus(); 
end;  
... 

하지만 13. OnMouseMove에서는을 더블 클릭하는 객체 관리자에 가지 않았다. 오브젝트 인스펙터없이이 작업을 수행 할 수있는 방법이 있습니까? 첫 번째 편집 필드에서 사용할 수있는 예제 코드 줄이 있습니까?

Answer 1

당신은 자신을 한 번 생성하고 코드를 할당 할 수

type 
    TForm1=class(TForm) 
    procedure EditMouseMove(Sender: TObject; Shift: TShiftState; 
     X, Y: Integer); 
    procedure FormCreate(Sender: TObject); 
    //... 
    end; 

implementation 

procedure TForm1.EditMouseMove(Sender: TObject; Shift: TShiftState; 
    X, Y: Integer); 
var 
    CurrEdit: TEdit; 
begin 
    if (Sender is TEdit) then 
    begin 
    CurrEdit := TEdit(Sender); 
    // Do whatever with CurrEdit 
    end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Edit1.OnMouseMove := EditMouseMove; 
    Edit2.OnMouseMove := EditMouseMove; 
    Edit3.OnMouseMove := EditMouseMove; 
end; 

를 양식의 모든 TEdit에 동일한 하나 지정하려면 : 같은에

procedure TForm1.FormCreate(Sender: TObject); 
var 
    i: Integer; 
begin 
    for i := 0 to ControlCount - 1 do 
    if Controls[i] is TEdit then 
     TEdit(Controls[i]).OnMouseMove := EditMouseMove; 
end;