Kod: Tümünü seç
procedure CMfocuschanged(var message: TCMfocuschanged); message CM_Focuschanged;
procedure Tfrm_stokkartikayit.CMFocusChanged(var Message: TCMFocusChanged);
var
i:integer;
grenk,crenk : tcolor;
BEGIN
grenk := clwhite;
crenk := clBlue;
if (message.sender is tedit) or
(message.sender is Tcxgrid) or
(message.sender is tcombobox) or
(message.sender is tlistbox) or
(message.sender is tcheckbox) or
(message.sender is tradiobutton) or
(message.sender is tdbedit)or
(message.sender is tdbcombobox) or
(message.sender is tdblistbox) or
(message.sender is tdbcheckbox) or
(message.sender is TDBGrid) or
(message.sender is TMaskEdit) or
(message.sender is TcxdbTextEdit) or
//(message.sender is TStringGrid) or
//(message.sender is TDrawGrid) or
(message.sender is TDBRichEdit) or
(message.sender is TDBLookupListBox) or
(message.sender is TDBLookupComboBox) or
(message.Sender is TcxDBLookupComboBox) or
(message.Sender is TcxDBMemo) or
(message.Sender is TcxDBComboBox)
then
begin
for i:=0 to componentcount-1 do
begin
if components[i] is tedit then
tedit(components[ i ]).color:= grenk;
if components[i] is tcombobox then
tcombobox(components[i]).color:= grenk;
if components[i] is tlistbox then
tlistbox(components[i]).color:= grenk;
if components[i] is tcheckbox then
tcheckbox(components[i]).color := grenk;
if components[i] is tradiobutton then
tradiobutton(components[i]).color:= grenk;
if components[i] is tdbedit then
tdbedit(components[i]).color:= grenk;
if components[i] is tdbcombobox then
tdbcombobox(components[i]).color:= grenk;
if components[i] is tdblistbox then
tdblistbox(components[i]).color:= grenk;
if components[i] is tdbcheckbox then
tdbcheckbox(components[i]).color:= grenk;
if components[i] is TDBGrid then
TDBGrid(components[i]).color:= grenk;
if components[i] is TMaskEdit then
TMaskEdit(components[i]).color:= grenk;
if components[i] is TcxdbTextEdit then
TcxdbTextEdit(components[i]).Style.color:= grenk;
if components[i] is TMaskEdit then
TMaskEdit(components[i]).color:= grenk;
if components[i] is TDBRichEdit then
TDBRichEdit(components[i]).color:= grenk;
if components[i] is TDBLookupListBox then
TDBLookupListBox(components[i]).color:= grenk;
if components[i] is TDBLookupComboBox then
TDBLookupComboBox(components[i]).color:= grenk;
if components[i] is TcxDBMemo then
TcxDBMemo(components[i]).Style.color:= grenk;
if components[i] is TcxDBComboBox then
TcxDBComboBox(components[i]).Style.color:= grenk;
if components[i] is TcxDBLookupComboBox then
TcxDBLookupComboBox(components[i]).Style.color:= grenk;
if components[i] is Tcxgrid then
Tcxgrid(components[i]).Canvas.Brush.Color := grenk;
end ;
tedit(message.sender).color :=crenk;
TcxDBTextEdit(message.Sender).Style.Color := crenk;
TcxDBMemo(message.sender).Style.Color := crenk;
TcxDBComboBox(message.sender).Style.Color := crenk;
TcxDBLookupComboBox(message.sender).style.Color := crenk;
Tcxgrid(message.sender).Canvas.Brush.Color := clRed;
end
end;