我動態生成了一個ComboBox, 當我Click 它時,我希望它call 另一個函數而且帶一個String的,我寫了下面的程式,但有其中有一點問題不懂,請各位幫忙幫忙解決!!謝謝!!

Proceduce MyClick(Sender: TObject; msg : string);

Proceduce TForm1.MyClick(Sender: TObject; msg : string)
begin
showmessage(msg );
end;
...
//動態生成了一個MyComboBox
MyComboBox.OnClick := MyClick(???????????) // <---這裏要填什麼?
...

===================引 用 gptesu 文 章===================

Proceduce TForm1.MyClick(Sender: TObject; msg : string)
begin
showmessage(msg );
end;
...
//動態生成了一個MyComboBox
MyComboBox.OnClick := MyClick(NIL 或 MyComboBox, 'Message String') // <---這裏要填什麼?
...

我試過NIL或MyComboBox, 也不行呢...
[DCC Error] CreatePRForm.pas(227): E2010 Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

因 OnClick() 屬 TNotifyEvent(請參見 Delphi Help), 只能有一個參數 TObject,
故 Message 可能要另外處理.

參考一下，雖不如您的要求，但目的可以達到。
[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure MyClick(sender:Tobject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
MyComboBox:TComboBox;
implementation
{$R *.dfm}
procedure TForm1.MyClick(sender:Tobject);
begin
if sender is TComBoBox then begin
showmessage('字串參數: ' TComBoBox(Sender).hint);
showmessage('數字參數: ' inttostr(TComBoBox(Sender).tag));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyComboBox:= TComboBox.create(self);
with MyComboBox do begin
Parent := form1;
Left := 0;
Top := 0;
Hint := 'msg'; // 字串參數
Tag := 9999; // 數字參數
Items.Text := '1';
ｏｎｃｌｉｃｋ:= MyClick;
end;
end;
end.

[/code]

------
努力會更接近成功

編輯記錄

小弟實測了一下,
自訂 procedure MyClick(Sender: TObject); 則 Assign 給 Create 產生的 ComboBox 沒問題.
至於 MyClick() 要用的 Message, 可用 public String Msg
或填於 ComboBox 之 Hint (ShowHint := False 便不會顯示),
則便可用 ShowMessage(Msg ); 或 ShowMessage(ComboBox.Hint);

Hi, 我寫另一種方式給你參考，可以修改 TComboData 裡的 Record 結構來放入更多你需要的資料

[code delphi]
unit Unit1;
interface
uses
Windows, SysUtils, Dialogs, Forms, Classes, Controls, StdCtrls;
type
PComboData = ^TComboData;
TComboData = record
myString: String;
myInteger: Integer;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure MyClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MyClick(Sender: TObject);
begin
with TComboBox(Sender) do
ShowMessage(PComboData(Items.Objects[ItemIndex])^.myString);
end;
procedure TForm1.FormCreate(Sender: TObject);
var ComboData: PComboData;
I: Integer;
begin
with TCombobox.Create(Self) do
begin
Top := 100;
Left := 100;
Parent := Self;
OnClick := MyClick;
for I := 0 to 3 do
begin
New(ComboData);
ComboData^.myString := '我是第 ' IntToStr(I) ' 個 Item';
ComboData^.myInteger := I;
Items.AddObject('第 ' IntToStr(I) ' 個項目', TObject(ComboData));
end;
end;
end;
end.
[/code]

------
價值的展現，來自於你用哪一個角度來看待它!!

以上兩個方法都可以做到我需要的效果!問題終於解決了!
謝謝大家熱心幫忙!^_^