Удаление Run-Time элементов управления

← →
Алексей С. (2006-12-08 07:56) [0]

Добрый день.
Ситуация:
Динамически на форме создается несколько(в завасимости от пользователя) элементов TListBox. Им присваивается при создании контекстное меню формы родителя с пунктом "закрыть ListBox".
Вопрос:
При написании процедуры "закрыть ListBox" контекстного меню КАК мне определьть какой именно ListBox необходимо закрыть ???
Заранее Спасибо!

← →
Алексей С. (2006-12-08 08:10) [1]

ну очень нужно.... :)

← →
Сергей М. © (2006-12-08 09:13) [2]

> КАК мне определьть какой именно ListBox необходимо закрыть
> ?

Очевидно тот который имел фокус на момент открытия конт.меню

← →
novill © (2006-12-08 09:15) [3]

> контекстного меню
Чье контекстное меню, укакого объекта?

> КАК мне определьть какой именно ListBox
наверное по имени.

← →
алексей с. (2006-12-08 09:29) [4]

хорошо. а как мне определить имя элемента, взвавшего контекстное меню?

← →
Kakashka (2006-12-08 09:40) [5]

if (Sender is TListBox) then... :)

← →
ЮЮ © (2006-12-08 09:43) [6]

Kakashka (08.12.06 09:40) [5]

В обработчике Sender-ом будет TMenuItem, который нажали.

← →
Kakashka (2006-12-08 09:45) [7]

ЮЮ ну да точно.:)

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus; type TForm1 = class(TForm) PopupMenu1: TPopupMenu; deleteItem: TMenuItem; Panel1: TPanel; Panel2: TPanel; procedure deleteItemClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.deleteItemClick(Sender: TObject); begin Caption := TPopupMenu(TMenuItem(sender).GetParentMenu).PopupComponent.Name; end; end.

← →
алексей с. (2006-12-08 10:47) [9]

вот, ЧЕЛОВЕК!, вот, спасибо!

Удаление Run-Time элементов управления Найти похожие ветки