首頁猿問 ...

比如下面代碼中出現(xiàn)了很多Sender的地方，不知道怎么用，望高手指教！

Java

臨摹微笑 2023-04-22 17:13:17

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;//隔行改變網(wǎng)格背景色：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;// //狀態(tài)不正常的商戶紅色顯示// 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條經(jīng)驗獲得超6個贊

指的是發(fā)送者

Sender是一個TObject類型的參數(shù)，它告訴Delphi哪個控件接收這個事件并調(diào)用相應(yīng)的處理過程。你可以編寫一個單一的事件處理句柄，通過Sender參數(shù)和IF…THEN…語句或者CASE語句配合，來處理多個構(gòu)件。發(fā)生事件的構(gòu)件或控件的值已經(jīng)賦給了Sender參數(shù)，該參數(shù)的用途之一就在于：可以使用保留字IS來測試Sender，以便找到調(diào)用這個事件處理句柄的構(gòu)件或控件的類型。例如，將表單中編輯框和標(biāo)簽的Click事件的處理句柄都指向表單的xxx過程，編輯框和標(biāo)簽對Click事件有不同的反應(yīng)：
　　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參數(shù)的第二個用途是結(jié)合AS操作符進行類型轉(zhuǎn)換，將若干個派生于某一父類的子類強制轉(zhuǎn)換成該父類。例如表單中有一個TEdit類控件和一個TMemo控件，它們實際上都派生于TcustomEdit類，如果你要為二者的某一事件提供同樣處理，可以將二者事件句柄都指向自定義的過程yyy:
　　Procedure TForm1.yyy(Sender:TObject);
　　begin
　　(sender as TcustomEdit).text:=′This is some demo text′;
　　end;
　　在過程中，AS操作符將TEdit類和TMemo類均強制轉(zhuǎn)換成TcustomEdit類，再對TcustomEdit類的屬性賦值。注意這種轉(zhuǎn)換必須符合Delphi中類的層次關(guān)系。
　　使用Sender參數(shù)可以通過單一過程段處理多類控件，真正體現(xiàn)了Delphi面向?qū)ο蟮闹赜眯浴?/p>

反對回復(fù) 2023-04-25

MMMHUHU

TA貢獻1834條經(jīng)驗獲得超8個贊

1.Sender的定義：
每一個事件處理里面至少都有一個Sender參數(shù)。比如：
procedure TForm1.Button1Click(Sender:TObject);
begin
...
end;
Sender的含義就是代表調(diào)用TForm1.Button1Click這個過程的控件. 由于Sender是TObject,所以任何object都可以賦給Sender.
當(dāng)你點擊BUTTON1時，會產(chǎn)生一個Button1Click事件，系統(tǒng)會把Button1傳遞給Button1Click過程作為參數(shù)，也就是所說的Sender.
2.Sender的用法：
<1>.由于Sender代表了調(diào)用所在過程的控件，那么你就可以直接把它拿來當(dāng)那個控件用，不過如果要用屬性的話，最好寫成(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;