Mega Code Archive
Formun taşınmasınıengellemek
<![CDATA[
type
TForm1 = class(TForm)
private
Procedure WMSysCommand( Var msg: TWMSysCommand ); message WM_SYSCOMMAND;
public
{ Public tanımlar }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand(var msg: TWMSysCommand);
begin
if (msg.CmdType and $FFF0) = SC_MOVE then begin
msg.result := 0;
exit;
end;
inherited;
end;
(*
-----------------------------------------------------------------------
Şükrü Kansız
GEBİTEK (Gelişmiş Bilişim Teknolojileri)
Bilgisayar Programcısı - Proje Koordinatörü
sukruk@gebitek.com / www.gebitek.com
Tel: +90(212) 225 84 77 Fax: +90(212) 225 84 76
-----------------------------------------------------------------------
*)
]]>