Delphi 窗体继承的例子.rar

Delphi 窗体继承的例子,适用于Delphi7的源代码例子,欢迎delphi新手参考。 procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin releasecapture; self.perform(WM_SYSCOMMAND,$F012,0); end;