移动控件:
向窗体发送WM_SYSCOMMAND消息,
const
sc_DragMove: Longint = $F012;
begin
if ssCtrl in Shift then
begin
ReleaseCapture;
(Sender as TWinControl).Perform(WM_SYSCOMMAND, sc_DragMove,0);
end;
end;
删除控件:
FreeAndNil(控件)
保存窗体:
FileStream.WriteComponent(self);
或WriteComponentResFile(控件)
读取窗体:
FileStream.ReadComponent(self)
或ReadComponentResFile(控件)
实事上要完成以上任何一件工作都不简单,如果你想深入,建议好好读一读电子工业出版
社出版的《Delphi高级开发指南》,由Marco Cantu、Tim Gooch、John F. Lam著。