티스토리 뷰
- 움직이는 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;
- Total
- Today
- Yesterday
- BPI-M4
- oracle
- Delphi
- android
- MySQL
- 일본여행
- Mac
- SAS
- Delphi Tip
- ffmpeg
- 송주경
- KOBA
- 동경
- Xcode
- JavaScript
- Java
- NDK
- flex
- 지스타2007
- Linux
- 레이싱모델 익스트림 포토 페스티벌
- 전예희
- koba2010
- ubuntu
- sas2009
- 서울오토살롱
- Spring
- 튜닝쇼 2008
- ble
- Spring MVC
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | |
7 | 8 | 9 | 10 | 11 | 12 | 13 |
14 | 15 | 16 | 17 | 18 | 19 | 20 |
21 | 22 | 23 | 24 | 25 | 26 | 27 |
28 | 29 | 30 |