Başlangıç > Kodlar > Delphi ile Ekranın sağına yanaşık start çubuğu

Delphi ile Ekranın sağına yanaşık start çubuğu


Ofis araç çubuğu benzeri bir araç çubuğumuz olsun istersek

1)  önce bir satatus bar yaratıp istediğiniz düğmeleri yerleştirin

2) daha sonra status barın hizalamasını right olarak ayarlayın.

3) ben şıklık olsun diye formumun gözükmemesini sadece status barın gözükmesini istedim bunun için
a) formun on create olayına
procedure TForm1.FormCreate(Sender: TObject);
begin
Brush.Style:=bsClear;
end;
kodlarını girin.
b) sonra formun transparan özelliğini true yapın

c) son olarak formun border stilini none olarak değiştirin.

4)  formun genişliğini ve yüksekliğini status bar  ile aynı olacak şekilde ayarlayın

5)şimdi formun on create olayına son bir kod ekleyeceğiz yani son hali şu olacak
procedure TForm1.FormCreate(Sender: TObject);
begin
Brush.Style:=bsClear;
form1.left:=screen.widht-form1.widht
form1.top:=screen.Height -(screen.Height -1)
end;

iyi çalışmalar


TD Software


Reklamlar
  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: