有没有办法把窗体的句柄转换成窗体类型?如TForm1(..Form1.Handle...)
解决方案 »
- 切换程序和EXCEL的时候弹这个错误,什么原因?
- ile not found: ShockwaveFlashObjects_TLB.dcr
- 请问在Delphi中如何AutoCAD的*.dwg文件格式?
- 在Delphi中如何调用C语言的DLL?
- 大家讨谈一下,我是用DLL还是用COM做好呢?
- 求助:intraweb 中如果把 from 的UpdateMode 属性设为 umPartial 则会出现 “运行错误”
- DELPHI如何捕捉错误?万望指教
- comm口问题 帮忙看一下代码
- 急!!!那位dialogic卡的大虾帮帮小妹!!!
- 关于object pascal的class of class的讨论,高手请进:
- 小问题
- 春节快到了,特散分快了接啊?
var
H: THandle;
AWinControl: TWinControl;
begin
H := Self.Handle;
AWinControl := FindControl(H);
if AWinControl is TForm then TForm(AWinControl).Close;
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
vBuffer: array[0..255] of Char;
begin
GetClassName(Handle, vBuffer, SizeOf(vBuffer));
Caption := vBuffer;
end;