目前分類:Delphi基本 (9)
- Apr 28 Tue 2020 11:41
Delphi TStringList 自訂排序功能
- Dec 25 Wed 2019 09:59
Delphi Enter 改成 TAB
procedure TForm1.Edit1KeyPress (Sender: TObject; var Key: Char) ;
begin
If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
SelectNext(Sender as TWinControl,False,True)
else
SelectNext(Sender as TWinControl,True,True) ;
Key := #0
end;
end;
- Dec 02 Mon 2019 08:40
Delphi 四捨五入
- Dec 14 Thu 2017 09:25
Delphi 設定IDE 在編譯執行時不要跳出錯誤訊息
- May 05 Fri 2017 22:22
Delphi 進階常數宣告
- May 04 Thu 2017 14:32
Delphi 單引號字串處理 QuotedStr
在下Sql 語法時 太多引號 避免混淆 使用 QuotedStr 函數 包住要加引號的字串
- Sep 24 Sat 2016 16:20
Delphi 例外狀況處理 及 錯誤紀錄ErrorLog