當顯示表單時,我想觸發表單中所有 TMemo 組件的所有 onChange 事件。
為此,我使用以下代碼:
var
i: integer;
m: tmemo;
begin
for i := 0 to componentcount - 1 do
begin
if components[i] is tmemo then
begin
m := components[i] as tmemo;
m.onchange(m);
end;
end;
end;
問題是,我在上面的回圈中遇到了一些訪問沖突,可能是因為某些備忘錄沒有 onChange 事件。
在下面一行觸發之前,我如何測驗事件是否存在?
m.onchange(m);
uj5u.com熱心網友回復:
您需要在呼叫它之前檢查是否分配了事件處理程式:
if Assigned(m.OnChange) then
m.OnChange(m);
轉載請註明出處,本文鏈接:https://www.uj5u.com/qianduan/418504.html
標籤:
