GetPropInfo & MethodTypeData
6 отговора
131 прегледа
GetPropInfo & MethodTypeData
Моля, помогнете ми да извикам евентуално съществуващ метод на някакъв обект.
Прочетох пет пъти горното изречение и не успях да го формулирам по-точно.
Ще дам пример със свойствата (а питам за методите):
procedure TForm1.Button1Click(Sender: TObject);
begin
..if GetPropInfo(Sender.ClassInfo,'Color')<> nil then
....ShowMessage(Sender.ClassName+' has no color property');{}
..else
....SetOrdProp(Sender, p, clRed)
end;
Ако методът е присвоен на OnClick на няколко визуални компонента, при клик ще се смени цвета само на тези, които има свойство "цвят".
По този начин се получава информация за наличните свойства по време на изпълнение.
МОЯТ ВЪПРОС се отнася за възможността за откриване и изпълнение на методи.
Пробвах:
procedure TForm1.Button1Click(Sender: TObject);
var
....m: tMethod;
....Key: word;
begin
..m := GetMethodProp(Sender, 'OnKeyDown');
..if m.Code = nil then
....ShowMessage(Sender.ClassName+' has no OnKeyDown metod')
..else begin
....Key:=13;
....TKeyEvent(m)(Sender,Key,[]);
..end;
end;
Проблемът е, че не мога да позная кога "m" е валидно - явно проверката m.Code не е коректна.
Та очаквам съвети
Прочетох пет пъти горното изречение и не успях да го формулирам по-точно.
Ще дам пример със свойствата (а питам за методите):
procedure TForm1.Button1Click(Sender: TObject);
begin
..if GetPropInfo(Sender.ClassInfo,'Color')<> nil then
....ShowMessage(Sender.ClassName+' has no color property');{}
..else
....SetOrdProp(Sender, p, clRed)
end;
Ако методът е присвоен на OnClick на няколко визуални компонента, при клик ще се смени цвета само на тези, които има свойство "цвят".
По този начин се получава информация за наличните свойства по време на изпълнение.
МОЯТ ВЪПРОС се отнася за възможността за откриване и изпълнение на методи.
Пробвах:
procedure TForm1.Button1Click(Sender: TObject);
var
....m: tMethod;
....Key: word;
begin
..m := GetMethodProp(Sender, 'OnKeyDown');
..if m.Code = nil then
....ShowMessage(Sender.ClassName+' has no OnKeyDown metod')
..else begin
....Key:=13;
....TKeyEvent(m)(Sender,Key,[]);
..end;
end;
Проблемът е, че не мога да позная кога "m" е валидно - явно проверката m.Code не е коректна.
Та очаквам съвети
Спретнах нещо, сякаш изглежда коректно.
procedure TForm1.Button1Click(Sender: TObject);
var
....p : pointer;
....m: tMethod;
....Key: word;
begin
....p := GetPropInfo(Sender.ClassInfo, 'OnKeyDown');
....if p=nil then begin
......ShowMessage(Sender.ClassName+' has no OnKeyDown metod')
....end else begin
......m := GetMethodProp(Sender, 'OnKeyDown');
......if m.Code = nil then begin
........ShowMessage(Sender.ClassName+' OnKeyDown metod is not Assignet')
......end else begin
........Key:=13;
........TKeyEvent(m)(Sender,Key,[]);
......end;
....end;
end;
var
....p : pointer;
....m: tMethod;
....Key: word;
begin
....p := GetPropInfo(Sender.ClassInfo, 'OnKeyDown');
....if p=nil then begin
......ShowMessage(Sender.ClassName+' has no OnKeyDown metod')
....end else begin
......m := GetMethodProp(Sender, 'OnKeyDown');
......if m.Code = nil then begin
........ShowMessage(Sender.ClassName+' OnKeyDown metod is not Assignet')
......end else begin
........Key:=13;
........TKeyEvent(m)(Sender,Key,[]);
......end;
....end;
end;
Редактирано от NikB на
Re: Спретнах нещо, сякаш изглежда коректно.
аха, изглежда е добре... но май си трябва едно допълнение - проверка дали метода е от съответния тип /за OnKeyDown - TKeyEvent/:
прочее, TKeyEvent(m)(tmpOBJ,Key,[]); минава и когато OnKeyDown е TNotifyEvent, ама за по-сигурно :-)))
Am I evil?
Yes I am.
//имаш един такъв обект
TCheatObj = Class(TWinControl)
private
fOnKeyDown : TNotifyEvent;
published
property OnKeyDown : TNotifyEvent read fOnKeyDown write fOnKeyDown;
end;
//и когато искаш да правиш KeyDown:
procedure TForm1.Button2Click(Sender: TObject);
var
p : PPropInfo;
m: tMethod;
Key: word;
tmpOBJ : TObject;
tmpCheatObj : TCheatObj;
begin
tmpCheatObj := TCheatObj.Create(self);
tmpCheatObj.OnKeyDown := FalseKeyDown;
tmpOBJ := tmpCheatObj;
p := GetPropInfo(tmpOBJ.ClassInfo, 'OnKeyDown');
if p=nil then begin
ShowMessage(tmpOBJ.ClassName+' has no OnKeyDown metod')
end else begin
//showmessage('p.PropType^.Name=' + p.PropType^.Name);
m := GetMethodProp(tmpOBJ, 'OnKeyDown');
if m.Code = nil then begin
ShowMessage(tmpOBJ.ClassName+' OnKeyDown metod is not Assignet')
end else begin
if (p.PropType^.Name = 'TKeyEvent') then begin
Key:=13;
TKeyEvent(m)(tmpOBJ,Key,[]);
end else begin
showMessage('Unsupported Method Kind: ' + p.PropType^.Name);
end;
end;
end;
tmpCheatObj.Free;
end;
procedure TForm1.FalseKeyDown(Sender: TObject);
begin
showmessage('FalseKeyDown');
end;
прочее, TKeyEvent(m)(tmpOBJ,Key,[]); минава и когато OnKeyDown е TNotifyEvent, ама за по-сигурно :-)))
Am I evil?
Yes I am.
