Anasayfa > Kodlar > Delphi ile Açılır-Kapanır form

Delphi ile Açılır-Kapanır form

İşyeri kepengine benzer bir sekilde açilip kapanabilen bir form yaratmak için kullanilabilecek kod örnegi asagidadir. Açilma ve kapanma komutu, bu örnekte baslik alani üzerinde sag fare tusuna basilarak verilmektedir.

uses Printers,  Buttons, ShellAPI;

private
{ Private declarations }
FOldHeight : Integer;
procedure WMNCRButtonDown(var Msg : TWMNCRButtonDown);
message WM_NCRBUTTONDOWN;

procedure TForm1.FormCreate(Sender: TObject);
begin
FOldHeight := ClientHeight;
end;

procedure TForm1.WMNCRButtonDown(var Msg : TWMNCRButtonDown);
var
I : Integer;
begin
if (Msg.HitTest = HTCAPTION) then
if (ClientHeight = 0) then
begin
I := 0;
while (I < FOldHeight) do begin
I := I + 40;
if (I > FOldHeight) then
I := FOldHeight;
ClientHeight := I;
Application.ProcessMessages;
end;
end
else
begin
FOldHeight := ClientHeight;
I := ClientHeight;
//kapanma efekti için, I degerini dogrudan “0” a esitlemek
//yerine kademeli olarak azaltabilirsiniz.

I := 0;
ClientHeight := I;
Application.ProcessMessages;
end;
end;


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: