standart dbnavigator butonlarının altına kod yazmak

[kazimates]

Kıymetli arkadaşlar ben dbnavigator un butonlarına her tıkladığımda her bir butonunun içerisinde farklı kodlar ekleyip bunları yapmasını istiyorum acaba bunun bir çözümü varmıdır varsa nasıl yapabiliriz.

Başarı, sağlık ve mutluluk dileklerimle...

[MicroChip]

her butonda bir olay oluşur delphinin örneklerinde helpinde var bu zaten. olay post mu? ona bakıcan ileri mi ona .......

[aslangeri]

s.a.
dbnavigator un onclick olayında buttontype ı nı kontrol ederek yapabilirsiniz.
kolay gelsin..

[Fatih!]

viewtopic.php?t=9853&highlight=

[gimil]

peki buttontype ı nasıl kontrol ediyoruz

[sabanakman]

peki buttontype ı nasıl kontrol ediyoruz

Kod: Tümünü seç

procedure TDBForm.DBNavigatorBeforeAction(Sender: TObject;
Button: TNavigateBtn) ;
begin
if (Button = nbinsert) then // Button  adlarrının önüne nb ekleyerek kullanın
begin
SysUtils.Abort; //Ekleme eylemini iptal et.
end;
end;

Cevap verilmiş zaten bu soruyu biraz okuma yapsaydın sormana gerek kalmazdı.

[gimil]

peki hocam dbnavigatör butonlarının herbirinin altında bir kod var
ben o kodlara müdahale edebilirmiyim

mesela silinmesini istemediğim kayıtlar var onu silmeye çalıştıklarında silinmemesini istiyorum

[MoSoft]

bende üzerindeki resimlerin yerine yazdığım yazıların görünmesini istiyorum bunu nasıl yapabilirim. ok işaretlerinin yerine ilk son kaydet sil gibi olursa buton eklemekten kurtulacam

[gimil]

@MYSOFT

forumda dbnavigator diye aratırsan o konuda bi açıklama vardı galiba

[gimil]

Eğer DBNavigator butonuna tıklamayla oluşan eylemi iptal etmek ihtiyacınız varsa, bunu componentin BeforeAction olayında aşağıdaki kodu yazarak halledebilirsiniz.

Kod:
procedure TDBForm.DBNavigatorBeforeAction(Sender: TObject;
Button: TNavigateBtn) ;
begin
if (Button = nbinsert) then // Button adlarrının önüne nb ekleyerek kullanın
begin
SysUtils.Abort; //Ekleme eylemini iptal et.
end;
end;



DbNavigator'ün ShowHint özelliği True yapılarak bu düğmelerin ne işe yaradığı üzerine gelindiği zaman yazacaktır. Bu Yazıları Türkçeleştirmek isterseniz Bileşenin Hints Özelliğinden yaralanabilirsiniiz.


ConfirmDelete Özelliğini False yaparaak Kaydı silerken onay istememesini,

visibleButtons özelliği altında bulunan seçeneklerlede istediğiniz buttonun görünmemesini sağlayabilirsiniz

TDBNavigator Bileşeninin Resimlerini Değiştirme

Kod:
procedure ChangeDBNavImage(DBnav: TDbNavigator);
var
i: Integer;
tempGlyph: TBitmap;
ExePath: string;
begin
ExePath := ExtractFilePath(Application.ExeName);
tempGlyph := TBitmap.Create;
try
with DBNav do begin
for i := 0 to ControlCount - 1 do begin
if Controls.ClassName = 'TNavButton' then begin
case TNavButton(Controls).Index of
nbFirst: tempGlyph.LoadFromFile(ExePath + 'first.bmp');
nbPrior: tempGlyph.LoadFromFile(ExePath + 'previous.bmp');
nbNext: tempGlyph.LoadFromFile(ExePath + 'Next.bmp');
nbLast: tempGlyph.LoadFromFile(ExePath + 'Last.bmp');
nbInsert: tempGlyph.LoadFromFile(ExePath + 'Insert.bmp');
nbDelete: tempGlyph.LoadFromFile(ExePath + 'Delete.bmp');
nbEdit: tempGlyph.LoadFromFile(ExePath + 'Edit.bmp');
nbPost: tempGlyph.LoadFromFile(ExePath + 'Post.bmp');
nbCancel: tempGlyph.LoadFromFile(ExePath + 'Cancel.bmp');
nbRefresh: tempGlyph.LoadFromFile(ExePath + 'Refresh.bmp');
end;
TNavButton(Controls).Glyph := tempGlyph;
end;
end;
end;
finally
tempGlyph.Free;
end;
end;


Kullanımı

Kod:
procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeDBNavImage(DBNavigator1);
end;

[sabanakman]

peki hocam dbnavigatör butonlarının herbirinin altında bir kod var
ben o kodlara müdahale edebilirmiyim

mesela silinmesini istemediğim kayıtlar var onu silmeye çalıştıklarında silinmemesini istiyorum

Kod: Tümünü seç

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;Button: TNavigateBtn);
begin
  case Button of
    nbFirst:;
    nbPrior:;
    nbNext:;
    nbLast:;
    nbInsert:;
    nbDelete:begin
      ShowMessage('Silme işlemi yapamazsınız.');
      Abort;
    end;
    nbEdit:;
    nbPost:;
    nbCancel:;
    nbRefresh:;
  end;
end;