سلام دوست من كد شما عالي بود
من از اين استفاده كردم
function FarsiMsg(m:string;mtype:TMsgDlgType):TModalResult;
var
fd1:tform;
begin
fd1:=CreateMessageDialog(m,mtype,[mbok,mbno]);
fd1.BiDiMode:=bdrighttoleft;
fd1.Caption:='دقت نماييد !';
fd1.Font.Name :='Tahoma';
fd1.Font.Size := 8;
tbutton(fd1.Components[2]).caption:='انصراف';
tbutton(fd1.Components[3]).caption:='تاييد';
result:=fd1.ShowModal;
fd1.Free;
end;
و روي يك دكمه اينو نوشتم
FarsiMsg('آيا موافق با حذف اطلاعات فوق هستيد ',mtInformation )
حالا يك سوال چطور ركورد را پاك كنم قبلا به اين طريق اطالاعات را پاك مي كرد الان بايد چكاركنم چه كدي بايد بنويسم اين كد قبلي منه
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if ADOTable1.RecordCount > 0 then
ADOTable1.delete;
end;