Gönderen Konu: Formun Boyutlarını Sabitleyin (Okunma sayısı 1977 defa)

Mikdad · « : 08 Kasım 2005 19:03:03 »

Bir Ara Çok Uğraştığım Fakat Yapamadığım Kodu Sizlere Sunuyorum

Kod: Delphi

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
 
 
type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
with Message.MinMaxInfo^ do
begin
ptMaxSize.X := 200; 
ptMaxSize.Y := 200; 
ptMaxPosition.X := 99; 
ptMaxPosition.Y := 99; 
ptMinTrackSize.X := 100; 
 
ptMinTrackSize.Y := 100; 
ptMaxTrackSize.X := 300; 
ptMaxTrackSize.Y := 300; 
end;
Message.Result := 0; 
inherited;
end;
 
 
end.

barutali · « **Yanıtla #1 :** 29 Haziran 2009 02:44:33 »

formun onCanResize olayına aşaıdaki kodu yazarsan boyutu büyütemez zaten.. birde border icons tan maximize yi false yaptınmı tamamdır...

Kod: Delphi

Resize := false;
 

Kodbank İndir

Gönderen Konu: Formun Boyutlarını Sabitleyin (Okunma sayısı 1977 defa)

Mikdad

Formun Boyutlarını Sabitleyin

barutali

Ynt: Formun Boyutlarını Sabitleyin