تغییر تصویر دکمه های DBNavigator

[Mohammad_Mnt]

من می خوام تصویر دکمه های Cancel و Delete را با هم عوض کنم . از این کد استفاده می کنم ولی جواب نمی ده :


self.Buttons[nbCancel].Glyph.LoadFromResourceName(HInstance, 'dbn_DELETE');
self.Buttons[nbDelete].Glyph.LoadFromResourceName(HInstance, 'dbn_CANCEL');

[MiRHaDi]

سلام
خوب چرا تو خود Resurce این کار رو دستی انجام نمیدید ؟
مصرف این کار چیه ؟
بای

[Mohammad_Mnt]

خوب چرا تو خود Resurce این کار رو دستی انجام نمیدید ؟

چطوری ؟

مصرف این کار چیه ؟

مصرفش توی تغییر تصویر دکمه هاست !!!!

[vcldeveloper]

type
THackDBNavigator = class(TDBNavigator);

procedure TForm1.Button1Click(Sender: TObject);
var
TempGlyph : TBitmap;
begin
with THackDBNavigator(DBNavigator1) do
begin
TempGlyph := TBitmap.Create;
try
TempGlyph.Assign(Buttons[nbDelete].Glyph);
Buttons[nbDelete].Glyph.Assign(Buttons[nbCancel].Glyph);
Buttons[nbCancel].Glyph.Assign(TempGlyph);
finally
TempGlyph.Free;
end;
end;
end;

[Mohammad_Mnt]

خیلی ممنون علی آقا