リストボックスで選択した値を別のフォームのEditに表示するには？

解決

ノーランド 2005-05-26 04:43:53 No: 15061 IP: [192.*.*.*]

リストボックスの項目を一つ選択して、その状態で、From2へ行って
コマンドボタンを押した場合その選択したテキストをForm2のEditで
表示したいのです。誰か教えていただけませんか？

編集削除

HOta 2005-05-26 06:16:49 No: 15062 IP: [192.*.*.*]

ListBoxがForm1でEdit1に表示すると仮定すると、

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := Form2.ListBox1.Items[Form2.ListBox1.ItemIndex];
end;

編集削除

ノーランド 2005-05-26 06:27:45 No: 15063 IP: [192.*.*.*]

完璧です！！ありがとうございます。

編集削除

Syake 2005-05-26 06:30:40 No: 15064 IP: [192.*.*.*]

こんばんは
試せないので、どうかわかりませんけど
Form2でButtonOcClickで
Edit1.Text := Form1.ListBox1.Items.Strings(Form1.ListBox1.ItemIndex);
これは、駄目だろうな

ならば
From1
ListBox1.OnClickで
Form2のグローバル変数に値を渡す。
From2のButtonOnClickでこのグローバル変数からEditに表示

グローバル変数は嫌いですか。
ならば
From2
Private
  StrListData：String;
Public
  Procedure  SetData(strData:String);
  (略)
procedure Form2.SetData(strData:String);
begin
StrListData := StrData;
end;
で、Form1のListBox1OnClickで
   From2.SetData(ListBox1.Items.Strings(ListBox1.ItemIndex));
としておいて
From2のButton1OnClickで
  Edit1.Text := StrListData;
ってのは如何？

編集削除

Syake 2005-05-26 06:35:38 No: 15065 IP: [192.*.*.*]

送りが遅いし、解決してるし
間違ってるし
>Edit1.Text := Form1.ListBox1.Items.Strings
>(Form1.ListBox1.ItemIndex);
Edit1.Text := Form1.ListBox1.Items[Form1.ListBox1.ItemIndex];
まだまだ、目くらはいけません。
すいません。

編集削除

ノーランド 2005-05-26 06:52:09 No: 15066 IP: [192.*.*.*]

参考にさせて頂きましたよ
ありがとうございます。

編集削除