Текущий архив: 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.016 c