Текущий архив: 2009.04.26;
Скачать: CL | DM;
Вниз
TPopupMenu Найти похожие ветки
← →
b@v © (2009-03-17 11:42) [0]Вопрос такой интересный. Есть у меня PopupMenu1 такого вида
Удалить
Добавить -> А вот сюда загрузить поле из базы данных (Типа чтобы можно было выбрать)
Выход
Можно такое реализовать ? Заранее спасибо за подсказку. В каком направлении рыть то хоть ?
← →
Рамиль © (2009-03-17 11:53) [1]Можно.
Создать TMenuItem и вставить (не помню только, надо создать и вставить или есть метод который сам создает) в TPopupmenu, присвоить обработчик на OnClick.
← →
b@v © (2009-03-17 11:55) [2]
> Можно.
> Создать TMenuItem и вставить (не помню только, надо создать
> и вставить или есть метод который сам создает) в TPopupmenu,
> присвоить обработчик на OnClick.
так то оно так, но с какой стороны подойти, не могу понять
← →
Ega23 © (2009-03-17 11:56) [3]
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TForm2 = class(TForm)
PopupMenu1: TPopupMenu;
miDel: TMenuItem;
miAdd: TMenuItem;
miExit: TMenuItem;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure MenuItemClick(Sender : TObject);
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
i : Integer;
mi : TMenuItem;
begin
miAdd.Clear;
for i:=1 to 10 do
begin
mi := TMenuItem.Create(miAdd);
mi.Caption := "Menu Item " + IntToStr(Random(1000));
mi.OnClick := MenuItemClick;
miAdd.Add(mi);
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Randomize;
end;
procedure TForm2.MenuItemClick(Sender: TObject);
begin
if (Sender is TMenuItem) then
ShowMessage(TMenuItem(Sender).Caption + " clicked");
end;
end.
← →
b@v © (2009-03-17 12:17) [4]
> Ega23 © (17.03.09 11:56) [3]
Спасибо, разобрался !!!
← →
Ega23 © (2009-03-17 12:20) [5]
> Спасибо, разобрался !!!
На будущее: если не хочешь, чтобы твою тему удалили, то ознакомься с правилами оформления вопросов.
← →
b@v © (2009-03-17 13:21) [6]
> Ega23 © (17.03.09 12:20) [5]
Еще вопросик, а почему он мне вроде все делает, но все значения с базы данных идут с первой подчеркнутой буквой, т.е. Армстронг. Можно как то от этого избавиться, а то если я создаю папочку с таким именем, то у меня вообще получается &Армстронг
← →
Ega23 © (2009-03-17 13:27) [7]TMenuItem.AutoHotkeys := False; ?
Страницы: 1 вся ветка
Текущий архив: 2009.04.26;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.027 c
