Delphi Tip

- 움직이는 Form
출처 : http://delphi.about.com/od/windowsshellapi/a/dragnocaption.htm

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) ;
begin
   ReleaseCapture;
   SendMessage(Form1.Handle, WM_SYSCOMMAND, 61458, 0) ;
end

- 현재 디렉토리

procedure TSimpleListDemoDataDM.DataModuleCreate(Sender: TObject);
var
  ExeFileName : String;
  ExePath : String;
begin
  ExeFileName := Application.ExeName;
  ExePath := ExtractFilePath(Application.ExeName);

  Database.Connected := false;
  Database.Params.Clear;
  Database.Params.Add('PATH=' + ExePath + '..\..\Data');
  Database.Params.Add('DEFAULT DRIVER=PARADOX');
  Database.Params.Add('ENABLE BCD=FALSE');
  Database.Connected := true;

  tblCars.Open;
end;