各位高手请问如何将THandle 类型 转换为TForm类型?

Question

如何将THandle 类型 转换为窗体类型?

Answer 1

TForm(integer(aHandle)).caption := 'CaptionTest';

Answer 2

procedure a(H: THandle);
var
  k: TForm;
begin
  if Assigned(H) and (TObject(H) is TForm) then
  k := TObject(H) as TForm;
  ...
end;

Answer 3

應該沒有很好的直接方法, 象樓上的兩個例子, 我懷疑邊 TObject, TForm為何物都不清楚!!

Answer 4

應該用 FindControl, 然後再判斷是否是 form, 如是, 再強制轉換!!function FindControl(Handle: HWnd): TWinControl;