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
Son yorumlar