accept:=true else accept:=false;
end; TForm1.Dir2DragDrop (Sender, Source: TObject; X, Y: Integer);. Click;
end; TForm1.Dir3DragDrop (Sender, Source: TObject; X, Y: Integer);. Click;
end; TForm1.Dir1DragDrop (Sender, Source: TObject; X, Y: Integer); source=dir2 then SBDir21.Click else SBDir31.Click;
end;
{////////////////////////////////////////////////////////////////////////////////////////}
procedure TForm1.TBSBDeleteClick (Sender: TObject); dir1.Focused thendir1 doMessageDlg («Delete» + FileName + «?», mtConfirmation,
[mbYes, mbNo], 0)=mrYes thenDeleteFile (FileName) then begin;. Update;. Update;; dir2.Focused thendir2 doMessageDlg («Delete» + FileName + «?» ;, mtConfirmation,
[mbYes, mbNo], 0)=mrYes thenDeleteFile (FileName) then begin;. Update;. Update;; dir3.Focused thendir3 doMessageDlg («Delete» + FileName + «?» ;, mtConfirmation,
[mbYes, mbNo], 0)=mrYes thenDeleteFile (FileName) then begin;. Update;. Update;;
end; TForm1.MnExitClick (Sender: TObject);;
end; TForm1.MnOpenBaseClick (Sender: TObject);. showmodal;
end; TForm1.BbIns2Click (Sender: TObject);. Table1.Active:=true;. Table2.Active:=true; insertrec.Table1.RecordCount <> 0 then insertrec.table1.Lastinsertrec.Table1.First;.Table1.Insert;.Table1.FieldByName(«Адрес»).asString:=Dir2.FileName;.ShowModal;(0);
showmessage («Обов'язковий введення« Назва »та« Розділ »»);
end;
end; TForm1.BbIns3Click (Sender: TObject);. Table1.Active:=true;. Table2.Active:=true; insertrec.Table1.RecordCount <> 0 then insertrec.table1.Lastinsertrec.Table1.First;.Table1.Insert;.Table1.FieldByName(«Адрес»).asString:=Dir3.FileName;.ShowModal;
end; TForm1.BbDir2Click (Sender: TObject); dir: string; selectDirectory (dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then Dir2.directory:= dir;
end; TForm1.BitBtn1Click (Sender: TObject); dir: string; selectDirectory (dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then Dir3.directory:= dir;
end; TForm1.MnShutDownClick (Sender: TObject); Check (exitWindowsEx (ewx_ShutDown, 0));
end; TForm1.MnReBootClick (Sender: TObject); Check (exitWindowsEx (ewx_ReBoot, 0));
end; TForm1.N8Click (Sender: TObject); Check (exitWindows (0,0));
end; TForm1.FormKeyPress (Sender: TObject; var Key: Char); key=# 27 then Close;
end; TForm1.Dir1Enter (Sender: TObject);
{if (dir2.ItemIndex <> - 1) then begin.Selected [dir2.ItemIndex]:=false;. Selected [dir1.ItemIndex]:=True;;}
end; TForm1.Dir2Enter (Sender: TObject);
{if dir1.ItemIndex <>- 1 then begin.Selected [dir1.ItemIndex]:=false;. Selected [dir2.ItemIndex]:=True;;}
end; TForm1.CBOnTopClick (Sender: TObject); CBOnTop.Checked then form1.FormStyle:=fsStayOnTopf...
