Merhaba arkadaşlar bu makalemizde Delphi’de Toolbar uygulamasını göreceğiz. İlk önce formumuza ToolBar ve ImageList ekleyelim. Eklediğimiz ImageList’e sağ tıklayıp ImageList Editor’e tıklayalım. Açılan ImageList penceresinde ToolBar’da gösterimini sağlayacağımız buttonların image larını Add butonuna tıklayarak ekleyeceğiz.
Şekil 1
Şimdi ToolBar’a sağ tıklayıp, New Buton’a tıklayarak ToolBar’a buton ekleyeceğiz. Eklediğimiz butonu seçelim. Object Inspector kısmında ImageIndex kısmında ImageList’de eklenilen image numarasını seçelim. Buton üzerine gelince Tooltip yazısı çıkması için Hint kısmına ToolTip yazısını ekleyelim.
Şekil 2
unit toolbar_Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList,
Vcl.ToolWin, Vcl.ComCtrls;
type
TForm1 = class(TForm)
ToolBar1: TToolBar;
ImageList1: TImageList;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder