Fromun maximize edilmesini önlemek.

Mesaj gönderen **hdayi** » 29 Ara 2004 05:52

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...

Mesaj gönderen **mege** » 29 Ara 2004 06:08

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

Mesaj gönderen **hdayi** » 29 Ara 2004 06:11

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.

Mesaj gönderen **mege** » 29 Ara 2004 06:55

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 · Mesaj gönderen **AykCan** » 29 Ara 2004 11:38

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;

Mesaj gönderen **gkimirti** » 30 Ara 2004 08:27

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

Mesaj gönderen **hdayi** » 30 Ara 2004 10:16

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 · Mesaj gönderen **AykCan** » 30 Ara 2004 10:48

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

Mesaj gönderen **hdayi** » 30 Ara 2004 10:52

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

Mesaj gönderen **husonet** » 30 Ara 2004 12:01

hdayi yazdı:Evet halloldu.
Teşekkürler....

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

Mesaj gönderen **husonet** » 30 Ara 2004 12:45

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

Mesaj gönderen **hdayi** » 30 Ara 2004 01:25

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.

Mesaj gönderen **husonet** » 30 Ara 2004 01:44

Hocam Anladım ama ben kodun çalışma şeklini merak etmiştim

Yani kod neden çalışmadı?

Mesaj gönderen **hdayi** » 30 Ara 2004 03:42

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ı.

Mesaj gönderen **husonet** » 31 Ara 2004 08:37

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...