Delphi程序员都那里去了？！！！关于句柄/类/类类型的相互转换的高难问题？ (100分)

天宇天蓝 · 2003-09-03

Function setclassf(hand:thandle):Tclass; var classname:array[0..255]of char;     sender:tclass; begin   getclassname(hand,classname,255);//返回出句柄的类名   sender:=getclass(classname);//返回类名的类型。但为空。不知道什么原因   //showmessage(sender.classname);显示sender的类名。   result:=sender; end; 函数的功能是返回句柄的类型。可是sender总是为空，请为有什么更好的方法？ 程序的运行流程是： showmessage(setclass(handle).classname); 非常感激！！！！！！！

tongdanfeng · 2003-09-03

procedure TForm1.BitBtn1Click(Sender: TObject); var   WinControl: TWinControl; begin   WinControl := FindControl(BitBtn1.Handle);   if (WinControl <> nil) then     ShowMessage(WinControl.ClassName); end;

天宇天蓝 · 2003-09-03

句柄那里去了？

tongdanfeng · 2003-09-03

FindControl(Handle: THandle);

天宇天蓝 · 2003-09-03

最关键的你不明白。 我是有返回句柄的类的类型。 sender:=getclass(classname);// showmessage(sender.classname);只是显示一下serder的类名。 我的紧接着就是判断类了。 你的能实现吗？

HereIsMe · 2003-09-03

If the function succeeds, the return value is the number of characters copied to the specified buffer. 它返回的根本不是類名的類型,當然會出錯了. 你只能根據註冊了的類型用Classname來找

天宇天蓝 · 2003-09-03

三天后没有更好的答案,我回给你加满分.

tongdanfeng · 2003-09-03

TClass是没有句柄的 TWinControl才开始有句柄 函数FindControl根据一个句柄返回它的TWinControl不是一样的吗？ 为什么一定要通过getclass函数来取得TClass，你可看看Delphi帮助的例子代码，GetClass需要RegisterClasses来注册类后才能使用的 procedure TForm1.BitBtn1Click(Sender: TObject); begin    { make sure the classes are registered so that GetClass will work -- }    { Usually, this goes in the initialization section where it is only executed once }   RegisterClasses([TIcon, TBitmap, TJPEGImage, TMetafile]);   Edit1.Text := GraphicExtension(TGraphicClass(GetClass(Edit2.Text)));  end;

Highpeak · 2003-09-03

唉老大，先好好看看帮助。 没有注册Class你到哪里找去？ 改为下面的就行了 Function setclassf(hand:thandle):Tclass; var classname:array[0..255]of char;    sender:tclass;    str:string; begin  getclassname(hand,@classname,255);//返回出句柄的类名  str:=ClassName;  RegisterClasses([TForm1]);  sender:=getclass(className);//返回类名的类型。但为空。不知道什么原因  result:=sender; end;

tongdanfeng · 2003-09-03

Highpeak的方法肯定是不行的，RegisterClasses([TForm])只是注册了TForm类和它的父类，想TButton肯定没注册，getclass('TButton)也会返回nil的， 我觉得你的函数 Function setclassf(hand:thandle):Tclass; 返回值因为TWinControl，改为 Function setclassf(hand:thandle):TWinControl;

天宇天蓝 · 2003-11-06

接受答案了.

Delphi程序员都那里去了？！！！关于句柄/类/类类型的相互转换的高难问题？ (100分)

天宇天蓝

Unregistered / Unconfirmed

tongdanfeng

Unregistered / Unconfirmed

天宇天蓝

Unregistered / Unconfirmed

tongdanfeng

Unregistered / Unconfirmed

天宇天蓝

Unregistered / Unconfirmed

HereIsMe

Unregistered / Unconfirmed

天宇天蓝

Unregistered / Unconfirmed

tongdanfeng

Unregistered / Unconfirmed

Highpeak

Unregistered / Unconfirmed

tongdanfeng

Unregistered / Unconfirmed

天宇天蓝

Unregistered / Unconfirmed

Similar threads