DataSource1 мағынасын орнатыңыз. ShowHint және Stretch қасиеттеріне True мағынасын орнатыңыз. Сонымен қатар төмендегі кестеде көрсетілген қасиеттерді де
кестедегідей етіп орнатыңыз:
Имя компонента Значения свойств DataFild Align Hint DBImage1 Flag alTop ФЛАГ DBImage2 Map alTop КАРТА DBImage3 FOTO alClient ФОТОГРА ФИЯ 5.
Қалқып шығатын көмек беруші тез қалқып шығуы үшін бастапқы формадағы
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;
