Fromun maximize edilmesini önlemek.

[hdayi]

Formun sağ üst köşesindeki maximize iconuna tıklanınca büyümesini engelledim ancak formun üstündeki mavi çubuğa (adı herneyse, bu caption'ın yazıldığı yer) çift tıklanınca maximize oluyor.
Bunu nasıl engelleriz?

Teşekkürler...

[mege]

formun on resize eventinden işlemi eski değerleri verip iptal edebiilrsibiz..

[hdayi]

mege,
o zaman da sol üst köşeye taşıyor formu. Dedim ki o zaman ben de formun pozisyonu alayım daha sonra maximize edildiğinde pozisyonu da değiştiririm.
Ama adam formu taşırsa ne olacak? form taşındığında formun left'ini right'ını elde edebilsem sorun kalmayacak.

[mege]

Kod: Tümünü seç

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
Resize:= FALSE;
end;

bu resize ı engeller . globla bil değişken ilede bunu kontrol edersinis
valla uyku mahmurluğu var tam anlamdım ama

form1.top, .left ile formun pozisyonunuda alabilirsiniz.

[AykCan]

forma bu procedure eklersen formun maksimize olmaz
minimize olmasını yada taşınmasınıda vs engelleyebilirsin.
(SC_MINIMIZE,SC_SIZE,SC_MOVE....)

kolay gelsin

Kod: Tümünü seç

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
   case (msg.CmdType and $FFF0) of
     SC_MAXIMIZE: begin
                   msg.CmdType:=SC_RESTORE;
                   WMSyscommand(msg);
                  end;
   end;
   inherited;
end;

[gkimirti]

BorderIcons tan mazimize yi kaldır
BorderStyle Single yap ,bu kadar basit

[hdayi]

Teşekkürler.
gkimirti'nin dediği şekilde oldu. (İşin kötüsü ben bunu biliyordum ya, ihtiyarlık alameti sanırım ) O olunca da diğerlerini denemedim. AykCan'ın dediği şekilde yapmıştım ama o işe tam olarak yaramamıştı. Zira bu bahsettiğim mavi alan çift tıklayınca büyüyordu form.

Kolay gelsin...

[AykCan]

Mavi cubuğa cift tıklasanda tam ekran olmaz program sanırım kodda bir yanlışlık var ama sorunu cözmüşsün nasılsa kolay gelsin

[hdayi]

Evet halloldu.
Teşekkürler....

[husonet]

Evet halloldu.
Teşekkürler....

Problem Neymiş neden çalıştıramamışsınız?

[husonet]

Kod u bende denedim çalıştıramadım?

[hdayi]

Hüseyin,
koda gerek kalmdan hallettik sağolsun hemşerim ufak biişey hatırlattı. Kaç gündür uğraşıyodum kod yazacam diye.
bordeicons'tan biMaximize'yi false yapınca büyümedi form.

[husonet]

Hocam Anladım ama ben kodun çalışma şeklini merak etmiştim Yani kod neden çalışmadı?

[hdayi]

kod çalıştı hüseyin. bi hata falan vermedi . bu formun sağ üst köşesindekki maximize (ekranı kapla) butonuna basınca büyümesini engelledi ancak. Formun üstündeki mavi çubuğa çift tıklayınca form büyüdü (ekranı kapladı). sanırım bu ikisinde oluşan olaylar farklı, bu yüzden kod o noktada işe yaramadı.

[husonet]

Procedure yi çalıştıramama sebebim Protıtipini tanımlarken yanlış bildirim yapıyormuşum.

procedure WMSyscommand(var msg: TWmSysCommand);message WM_SYSCOMMAND;

Kod: Tümünü seç

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WMSyscommand(var msg: TWmSysCommand);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

Kod olarak da güzel çalışıyor.


Kolay Gelsin...