Скачать: CL | DM;

TMenuItem?   Найти похожие ветки 

← →
M@D   (2004-11-14 18:48) [0]

Подскажите, пожайлуста, как создать TMenuItem runtime и для них события?

---

← →
M@D   (2004-11-14 18:54) [1]

как создать lebel я знаю

procedure TForm1.Create_lbl(Pos: Integer; FName: String);
var i: Integer;
   TypeClass : TControlClass;
   lb_All       : TControl;
begin
 TypeClass := TLabel;
 for i := 0 to 19 do
   begin
     lb_All := TypeClass.Create(Form1);
     if i > 9 then
       lb_All.Top    := 54 + 21*(i-10)
      else
       lb_All.Top    := 54 + 21*i;
     if i > 9 then
       lb_All.Left   := 236 + Pos
      else
       lb_All.Left   := Pos;
     lb_All.Name   := FName + IntToStr(i);
     if i > 9 then
       TLabel(lb_All).Caption := IntToStr(i - 9)
      else
       TLabel(lb_All).Caption := IntToStr(i + 1);
     lb_All.Parent := Form1;
   end;
end;

---

← →
KilkennyCat ©   (2004-11-14 19:08) [2]

а я знаю как создать edit. только он никакого отношения к меню не имеет.

---

← →
KilkennyCat ©   (2004-11-14 19:12) [3]

пусть у нас есть менюха Menu,

тогда пишем такое:
var
ньюитем : TMenuItem;
begin
ньюитем := TMenuItem.Create(Self);
ньюитем.Caption := "Вау!";
ньюитем.OnClick := клик_на_ньюитем_процедура;
Menu.Add(ньюитем);
end;

ну и разумеется не забыть, что клик_на_ньюитем_процедура должна законно существовать...

---

← →
Defunct ©   (2004-11-14 19:12) [4]

var MenuIdx : Integer = 0;

procedure TForm1.Button3Click(Sender: TObject);
var M : TMenuItem;
   ComponentName : String;
begin

 M := TMenuItem.Create( Self );
 with M do
 Try
   ComponentName := "menu"+IntToStr( MenuIdx );
   Name := ComponentName;
   Caption := Name;
   OnClick := ____обработчик вида TNotifyEvent____
   Inc(MenuIdx);
   try
     TMenuItem( Self.FindComponent("Имя пункта меню куда вставляем") ).Add( M );
   except
     ShowMessage("некуда вставить");
   end;
   Show
 except
 end;

 if FindComponent( ComponentName )<>nil then
    ShowMessage("Добавлен "+ ComponentName )
end;

---

← →
KilkennyCat ©   (2004-11-14 19:13) [5]

мда. куда делись мои отступы?

---

← →
M@D   (2004-11-14 19:31) [6]

Defunct © сенкс :)
(подробно и понятно)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.969 c