drFile: array[0..256] of char; XYPoint:TPoint; nmComp:string; protected procedure WMDropFiles (var Msg: TMessage);message wm_DropFiles; public
{ Public declarations }
end;
…………………………………………
OnCreate формасының өңдеушісіне төменде қалың шрифтпен берілген жолды қосыңыз:
procedure TfmMain.FormCreate(Sender: TObject);
var sbase:string;
begin
sbase:=FindFileBD('BDMyWorld.mdb','MyWorld.INI',ConStr,dlgBD);
if sbase<>'' then begin
ADOQuery1.Active :=False;
ADOQuery1.ConnectionString :=ConStr;
ADOQuery1.Active :=True;
NameSortField:=DBGrid1.Columns[0].FieldName;Desc:=False;
NewQuerySQL;
end else Application.Terminate;
Application.HintPause :=0;
