Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
ВнизУдаление 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]ЮЮ ну да точно.:)
← →
ЮЮ © (2006-12-08 10:01) [8]
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]вот, ЧЕЛОВЕК!, вот, спасибо!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.049 c