procedure TForm_QueTail.DBGridEh1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumnEh;State: TGridDrawState);beginif not (Sender as TDBGridEh).DataSource.DataSet.Active then Exit;//隔行改變網格背景色：if not Odd((Sender as TDBGridEh).DataSource.DataSet.RecNo) then begin(Sender as TDBGridEh).Canvas.Font.Color := clBlack;(Sender as TDBGridEh).Canvas.Brush.Color := RGB(249, 244, 245); //背景顏色1end else begin(Sender as TDBGridEh).Canvas.Font.Color := clBlack;(Sender as TDBGridEh).Canvas.Brush.Color := clWhite; //背景顏色2end;if (Sender as TDBGridEh).SelectedRows.CurrentRowSelected then begin(Sender as TDBGridEh).Canvas.Font.Color := clBlack;(Sender as TDBGridEh).Canvas.Brush.Color := RGB(209, 234, 249); //選中背景色end;if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then begin(Sender as TDBGridEh).Canvas.Font.Color := clWhite;(Sender as TDBGridEh).Canvas.Brush.Color := $00E25A76;end;if ((Sender as TDBGridEh).DataSource.DataSet.FieldByName('reversal').Asinteger = 1) or((Sender as TDBGridEh).DataSource.DataSet.FieldByName('rejcode').AsString <> '00') thenbegin(Sender as TDBGridEh).Canvas.Font.Color := clRed;endelsebeginif (Sender as TDBGridEh).DataSource.DataSet.FieldByName('voided').Asinteger = 1 thenbegin(Sender as TDBGridEh).Canvas.Font.Color := clBlue;endelsebegin(Sender as TDBGridEh).Canvas.Font.Color := clBlack;end;end;// //狀態不正常的商戶紅色顯示// if (Copy(Trim((Sender as TDBGridEh).DataSource.DataSet.FieldByName('SUBMERSTATE').AsString),1,1)<>'1') and// (Copy(Trim((Sender as TDBGridEh).DataSource.DataSet.FieldByName('SUBMERSTATE').AsString),1,1)<>'2') and// (Copy(Trim((Sender as TDBGridEh).DataSource.DataSet.FieldByName('SUBMERSTATE').AsString),1,1)<>'6') // then// (Sender as TDBGridEh).Canvas.Font.Color := clRed;(Sender as TDBGridEh).DefaultDrawColumnCell(Rect,DataCol,Column,State);end;
2 回答
ibeautiful
TA貢獻1993條經驗 獲得超6個贊
指的是發送者
Sender是一個TObject類型的參數，它告訴Delphi哪個控件接收這個事件并調用相應的處理過程。你可以編寫一個單一的事件處理句柄，通過Sender參數和IF…THEN…語句或者CASE語句配合，來處理多個構件。發生事件的構件或控件的值已經賦給了Sender參數，該參數的用途之一就在于：可以使用保留字IS來測試Sender，以便找到調用這個事件處理句柄的構件或控件的類型。例如，將表單中編輯框和標簽的Click事件的處理句柄都指向表單的xxx過程，編輯框和標簽對Click事件有不同的反應：
procedure TForm1 xxx(Sender:TObject);
begin
if(sender is Tedit) then
showmessage(′this is a editbox′);
if(sender is Tlabel) then
showmessage(′this is a label′);
end;
Sender參數的第二個用途是結合AS操作符進行類型轉換，將若干個派生于某一父類的子類強制轉換成該父類。例如表單中有一個TEdit類控件和一個TMemo控件，它們實際上都派生于TcustomEdit類，如果你要為二者的某一事件提供同樣處理，可以將二者事件句柄都指向自定義的過程yyy:
Procedure TForm1.yyy(Sender:TObject);
begin
(sender as TcustomEdit).text:=′This is some demo text′;
end;
在過程中，AS操作符將TEdit類和TMemo類均強制轉換成TcustomEdit類，再對TcustomEdit類的屬性賦值。注意這種轉換必須符合Delphi中類的層次關系。
使用Sender參數可以通過單一過程段處理多類控件，真正體現了Delphi面向對象的重用性。
MMMHUHU
TA貢獻1834條經驗 獲得超8個贊
1.Sender的定義：
每一個事件處理里面至少都有一個Sender參數。比如：
procedure TForm1.Button1Click(Sender:TObject);
begin
...
end;
Sender的含義就是代表調用TForm1.Button1Click這個過程的控件. 由于Sender是TObject,所以任何object都可以賦給Sender.
當你點擊BUTTON1時，會產生一個Button1Click事件，系統會把Button1傳遞給Button1Click過程作為參數，也就是所說的Sender.
2.Sender的用法：
<1>.由于Sender代表了調用所在過程的控件，那么你就可以直接把它拿來當那個控件用，不過如果要用屬性的話，最好寫成(Sender as 控件名).控件屬性：=... 例如:
procedure TForm1.Edit1Click(Sender: TObject);
begin
with Sender as TEdit do
begin
text:=’hello’;
end;
end;
<2>.如果在兩個事件中處理同樣的事情，那么可以利用Sender來省去重寫同樣的過程。例如：
Procedure TForm1.Button1Click(Sender:TObject);
begin
do same sth.....;
if Sender=Button1 then
do sth....;
if Sender=Button2 then
do other sth....;
end;
procedure TForm1.Button2Click(Sender:TOBJect);
begin
Button1Click(Button2);
end;
添加回答
舉報
0/150
提交
取消