掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームをアンドックしたときにフォーム上のコンポーネントのDataプロパティを正しく参照するには？ (ID：14661)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ドック、アンドックしても TreeのData値は変化しません オブジェクトも変化しません コードを見直す方が賢明です。 ---------------------- procedure TForm1.FormCreate(Sender: TObject); begin Panel1.DockSite := True; end; ---------------------- procedure TForm2.FormCreate(Sender: TObject); begin DragKind := dkDock; DragMode := dmAutomatic; end; procedure TForm2.Button1Click(Sender: TObject); var i ,j :integer; begin For i:=0 to TreeView1.Items.Count-1 do with TreeView1 do begin if (i=0) then j := Integer(@(Button3)) else j := i; Items[i].Text := IntTostr(j); Items[i].Data := Ptr(j); end; end; procedure TForm2.Button2Click(Sender: TObject); var i :integer; begin For i:=0 to TreeView1.Items.Count-1 do with TreeView1 do begin Items[i].Text := IntTostr(Integer(Items[i].Data)); end; end; procedure TForm2.Button3Click(Sender: TObject); begin if TreeView1.Items.Count=0 then Exit; ShowMessage(Format('Old[%d] New[%d]', [Integer(TreeView1.Items[0].Data),Integer(@(Button3))])); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.