邏輯類與UI類進行交互時，避免在邏輯類中對UI類的偶合

原創 blackhu 2018-08-30 21:59
發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章

Delphi隱藏和顯示Windows的任務欄

//隱藏任務條 procedure HideTaskBar; var   h1: THandle;   wndClass: array[0..50] of Char; begin   StrPCopy(@wndClass[0], 'She

YanJinrong 2020-07-07 09:39:00

delphi裏窗體改變大小怎麼讓裏邊的TreeView,GroupBox也隨着改變大小

delphi裏窗體改變大小怎麼讓裏邊的TreeView,GroupBox也隨着改變大小,比例不變. 請高手指點  

hechao19867187 2020-07-08 12:01:12

根據條件改變cxGrid行與列顏色

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(   Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;   AViewInfo:

piaoyao424 2020-07-07 19:07:14

Delphi函數指針的兩種定義

  delphi中經常見到以下兩種定義   Type          TMouseProc = procedure (X,Y:integer);          TMouseEvent = procedure (X,Y:integer

procedure1984 2020-07-07 18:13:01

一個漂亮的Delphi程序(Delphi在分形藝術中的應用)

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs; type 

cnssk 2020-07-07 14:41:56

delphi郵件定時發送

unit smtp; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, S

void_1987 2020-07-07 11:57:18

foam

moxie 寫道: weihello 寫道:後來，我找到了一個叫foam的玩藝，嘿，將swing開發做得和delphi界面開發一樣容易。 那個效率簡直無法相比。 foam與JBuilder比較如何？？ foam是一個做Swing的插件嗎？

xiang888 2020-07-07 11:18:54

FireDAC 學習 - 3：建立數據庫連接 之 TFDManager

使用數據庫，第一步是建立和數據庫的連接。結果關於連接，不是第一篇，而是本系列第三篇。 我使用 FireBird 開源數據庫作爲測試。FireDAC 支持 FireBird。 在本系列第一篇，我沒有仔細說 FDConnection1 是如何

pcplayer 2020-07-07 09:56:56

FireDAC 學習 - 6：CachedUpdates 模式下查看被刪除的記錄

概念 前面的文章 FireDAC 學習 - 5 講到，將 FdQuery 和 FdMemTable 的 CachedUpdates 設置爲 True，然後在 FdMemTable 裏面編輯後，可以讀取到編輯改動的記錄，將編輯改動過的記錄輸

pcplayer 2020-07-07 09:56:55

FireDAC 學習 - 4：屬性繼承

我們知道，TFdQuery 是通過 TFdConnection 去連接數據庫的。 而 TFdConnection 連接數據庫的參數，可以通過 TFdManager 獲得。 打開前面的例子程序，在設計期，選擇 FdQuery1，看看其屬性面

pcplayer 2020-07-07 09:56:55

FireDAC 學習 - 5：三層，遠程提交，公文包模式

問題需求： 以前版本的 Delphi，三層架構的程序，採用 TClientDataSet 來作爲客戶端的內存表，所有用戶操作都是針對 TClientDataSet 裏面的記錄進行增刪改的操作。在這裏，用戶修改後的記錄，叫做 Delta。操

pcplayer 2020-07-07 09:56:55

Delphi獲取屏幕分辨率

GetSystemMetrics(SM_CXSCREEN);  //水平分辨率 GetSystemMetrics(SM_CYSCREEN);  //垂直分辨率

YanJinrong 2020-07-07 09:39:01

Delphi打開Windows啓動菜單

  procedure TForm1.Button1Click(Sender: TObject);    begin     SendMessage(handle,WM_SYSCOMMAND,SC_TASKLIST,0);   end;

YanJinrong 2020-07-07 09:39:00

delphi Undeclared identifier: IMAGE_FILE_LARGE_ADDRESS_AWARE

uses WinApi.Windows;

qqww155 2020-07-07 09:22:34

Delphi下遍歷文件夾下所有文件的遞歸算法

procedure MakeTree(var slFile: TStrings; const FileExt: string); var   Sr : TSearchRec;   Err : integer;   TrSize, File

yonghenghaha 2020-07-07 04:45:17