請問大家，我為了要讓游標所到之Edit元件顏色改變，在本站找到了一個範 例，測試後是OK的，但我有一個問題，就是原本Edit的OnExit所寫的Code却執行不到了，請問我要如何修改才可以讓程式先執行Edit的OnEnter再變顏色，離開時先執行 OnExit再還原顏色呢?謝謝!! procedure Tform1.EdtEnter(Sender: TObject); begin Tedit(Sender).Color :=clblue; end; procedure Tform1.EdtExit(Sender: TObject); begin Tedit(Sender).Color :=clWindow; end; procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i:=0 to ControlCount -1 do if Controls[i] is Tedit then begin Tedit(Controls[i]).OnEnter :=EdtEnter; Tedit(Controls[i]).OnExit :=EdtExit; end; end;

引言: 請問大家，我為了要讓游標所到之Edit元件顏色改變，在本站找到了一個範 例，測試後是OK的，但我有一個問題，就是原本Edit的OnExit所寫的Code却執行不到了，請問我要如何修改才可以讓程式先執行Edit的OnEnter再變顏色，離開時先執行 OnExit再還原顏色呢?謝謝!! procedure Tform1.EdtEnter(Sender: TObject); begin Tedit(Sender).Color :=clblue; end; procedure Tform1.EdtExit(Sender: TObject); begin Tedit(Sender).Color :=clWindow; end; procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i:=0 to ControlCount -1 do if Controls[i] is Tedit then begin Tedit(Controls[i]).OnEnter :=EdtEnter; Tedit(Controls[i]).OnExit :=EdtExit; end; end;

請到本站下載 DOSMOVE元件, 其中有一個PROPERITY -> ACTIVECOLOR 有範例, 或直接使用該元件即可解決你的問題!

a02：我有一個控制的方式，來源已經忘了！請知道的告之！
但不幸的是這是BCB的語法，可以請雙修的大大翻譯一下
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Screen->OnActiveControlChange=ColorControl;
}
void _fastcall TForm1::ColorControl(TObject *Sender)
{
  if (Screen->ActiveForm->Name != this->Name)
    return ;
  bool TF=false;
  PPropInfo PropInfo;
  TTypeKinds typekind;
  typekind= typekind<ClassInfo(),"Color",typekind);
    if ( PropInfo )
      SetOrdProp( OldControl, PropInfo, clWindow);
  }
  OldControl=Screen->ActiveControl;
  if (GetPropInfo((TTypeInfo *)Screen->ActiveControl->ClassInfo(),"Text"))
    TF=true;
  if (TF) {
    PropInfo= GetPropInfo((TTypeInfo *)Screen->ActiveControl->ClassInfo(),"Color",typekind);
    if ( PropInfo ) 
      SetOrdProp( Screen->ActiveControl, PropInfo, clSilver);
  }
}
這種方式，我使用上不會有你說的問題！
請參考！
對不起！我不會Delphi。        
        

------
Andy Chang

Hi a02 兄您好:    請問你是不是有用TPanel之類的, 如果有你的程式沒辦法設定到Panel上的TEdit, 改成

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
   for i:=0 to ComponentCount -1 do
      if Components[i] is Tedit then begin
         Tedit(Components[i]).OnEnter :=Edit1Enter;
         Tedit(Components[i]).OnExit :=Edit1Exit;
      end;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.