// 소스를 실행하려면 DBGrid1, DBEdit1, DBEdit2, DBEdit3 은 전부
// DataSource1 에 연결시켜야 하며 DBEdit1, DBEdit2, DBEdit3는
// 임의의 DataField를 가지고 있어야 테스트가 됩니다
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TypInfo, StdCtrls, Db, DBTables, Grids, DBGrids, Mask, DBCtrls, Buttons;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// 주어진 Control이 data aware control 인지 검사하는 함수
// 검사 방법은 data aware control 은 전부 DataSource 프로퍼티를 가지고 있는데
// property 정보를 검사하여 DataSource 프로퍼티의 존재여부를 검사한다
function IsDBControl(AC: TControl; var Datasource: TDataSource): Boolean;
var
ptrPropInfo: PPropInfo;
begin
Result := False;
if AC <> nil then
begin
// control의 프로퍼티들중 DataSource 프로퍼티 정보를 읽는다(없으면 nil)
ptrPropInfo := GetPropInfo(AC.ClassInfo, 'DataSource');
if Assigned(ptrPropInfo) and (ptrPropInfo^.PropType^.Kind = tkClass) then
begin
DataSource := Pointer(GetOrdProp(AC , ptrPropInfo));
Result := Assigned(DataSource);
end;
end;
end;
// 주어진 Form의 현재 편집중인 Field를 구한다
// 구하는 방법은 먼저 주어진 폼의 Active된 Control이 data aware control인지
// 검사하고 그것이 DBGrid이면 선택된 필드를 리턴하고 그렇지 않은 Control이면
// DataField 프로퍼티를 가지고 있으면 그 필드를 리턴한다
function GetActiveField(Form: TForm): TField;
var
Datasource: TDatasource;
ptrPropInfo: PPropInfo;
AC: TControl;
begin
Result := nil;
if Form <> nil then
begin
AC := Form.ActiveControl; // 폼의 포커스가 있는 control 을 구한다
if IsDBControl(AC, DataSource) and // AC가 data aware control 인지 검사
(Datasource <> nil) and
(Datasource.DataSet <> nil) then
begin
if AC is TCustomDBGrid then // AC가 DBGrid이면 선택된 필드를
Result := (AC as tCustomDBGrid).SelectedField
else
begin
// control의 프로퍼티들중 DataField 프로퍼티 정보를 읽는다(없으면 nil)
ptrPropInfo := GetPropInfo(AC.ClassInfo, 'DataField');
if Assigned(ptrPropInfo) and (ptrPropInfo^.PropType^.Kind = tkLString) then
Result := Datasource.Dataset.FindField(GetStrProp(AC, ptrPropInfo));
end;
end;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
cField: TField;
begin
// Active된 폼의 현재 편집중인 Field를 구한다
cField := GetActiveField(Screen.ActiveForm);
if cField <> nil then
ShowMessage(cField.FieldName);
end;
end. |
|
