VB 裡頭的 RaiseEvent Function， 請問在 Delphi 裡有無對應的 Function？

不太清楚 VB 的 RaiseEvent 功能的詳細內容, 不過 Delphi 似乎沒直接相對應的指令或函式 如果要觸發的是自定的事件函式, 又不想寫死, 可用以下方式: 比如 要觸發 Button1.onClick if Assigned(Button1.onClick) then Button1.OnClick(Button1); 又如 要觸發 Edit1.onExit 可用 if Assigned(Edit1.onExit) then Edit1.OnExit(Edit1); 如果要觸發內定的事件函式, 那就要依各事件的觸發因素來下命令了. 比如要觸發 Edit1.onKeyDown 就用 SendMessage 將某按鈕按下的 Messages 送出去.

我也不熟VB, 但Delphi有raise的保留字, 你參考看看是不是你要的東西。

function StrToIntRange(const S: string; Min, Max: Longint): Longint;
begin
  Result := StrToInt(S);  // StrToInt is declared in SysUtils
  if (Result < Min) or (Result > Max) then
    raise ERangeError.CreateFmt(
      '%d is not within the valid range of %d..%d',
      [Result, Min, Max]);
end;

感謝各位大大熱心，VB 我也不太瞭解， 但從以下的範例看來 RaiseEvent 應該是丟出一個 Event， 而這個 Event 是 Struct(Record) 型態， 這個會是 Raise Exception 嗎？ Public Event SendChannelData( Channel As Variant, ByVal target As String, ByVal targetmsg As Long, ByVal source As String, ByVal sourcemsg As Long, ByVal param As Long, Data As Variant) Private Sub cmdSub_Click() If Len(txtChannel.Text) <> 0 Then RaiseEvent SendChannelData( Empty, "Test", 1, "play", 0, 0, Text1.Text) End If End Sub

查到的資料出現在 VB.NET 在 Delphi 中, 一個 class 一樣能有自定的事件形式 在實作該 class 時, 能指定事件處理函式給該事件

Public Event SendChannelData(
  Channel As Variant,
  ByVal target As String,
  ByVal targetmsg As Long,
  ByVal source As String,
  ByVal sourcemsg As Long,
  ByVal param As Long,
  Data As Variant)
類似於
type TSendChannelData = procedure (
  Channel: Variant;
  Target: String;
  TargetMsg: integer;
  Source: String;
  SourceMsg: integer;
  Param: integer;
  Data: Variant) of object;
 FonSendChannelData: TSendChannelData;
 property onSendChannelData: FonSendChannelData read FonSendChannelData write FonSendChannelData;

Private Sub 物件名_SendChannelData(Channel As Variant, ByVal target As String, ByVal targetmsg As Long, ByVal source As String, ByVal sourcemsg As Long, ByVal param As Long, Data As Variant) _
      Handles 物件名.SendChannelData
類似於
物件名.onSendChannelData:=SendChannelData;    procedure 物件名.SendChannelData(
  Channel: Variant;
  Target: String;
  TargetMsg: integer;
  Source: String;
  SourceMsg: integer;
  Param: integer;
  Data: Variant);

RaiseEvent SendChannelData(Empty, "Test", 1, "play", 0, 0, Text1.Text);
類似於
if Assigned(FonSendChannelData) then FonSendChannelData(Empty, "Test", 1, "play", 0, 0, Text1.Text);