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

Истина где-то рядом.....:-)   Найти похожие ветки 

← →
fester   (2002-07-08 21:40) [0]

Что здесь не так ??? Меню всплывает, но при клике по итему -> выход из программы и все :-(((

program Project1;

uses
Menus,
Windows,
Forms;


type
TApp1 = class(TApplication)
procedure PopItemClick(Sender: TObject);
end;

var
Popup1:TPopupMenu;
PopItem:TMenuItem;
App:TApp1;

procedure TApp1.PopItemClick(Sender: TObject);
begin
WinExec("notepad.exe",sw_normal);
end;

begin
Popup1:=TPopupMenu.Create(nil);
PopItem:=TMenuItem.Create(Popup1);
PopItem.Caption:="блокнот";
PopItem.OnClick:=App.PopItemClick;
Popup1.Items.Add(PopItem);
popup1.Alignment:=paRight;
Popup1.Popup(300,300);
end.

---

← →
TTCustomDelphiMaster ©   (2002-07-08 22:33) [1]

В принципе программа должна работать как вы описываете, если вы хотите получить другой результат, тогда где в вашей программе
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run; ???

---

← →
fester   (2002-07-08 23:03) [2]

Форм в программе нет, а две другие строчки ни на что не влияют. Интересно, где ошибка? Ведь если формы есть, то аналогичный код работает....

---

← →
SerVS ©   (2002-07-09 00:19) [3]

>Форм в программе нет
??? я где появляется меню? можно объяснить что ты вообще мутишь?
>Ведь если формы есть, то аналогичный код работает....
Когда есть формы Винда знает кому мегаси посылать...

---

← →
fester   (2002-07-09 00:48) [4]

ВАУ!!! Тупо до безобразия :-)))

begin
Popup1:=TPopupMenu.Create(nil);
PopItem:=TMenuItem.Create(Popup1);
PopItem.Caption:="блокнот";
PopItem.OnClick:=App.PopItemClick;
Popup1.Items.Add(PopItem);
popup1.Alignment:=paRight;
Popup1.Popup(300,300);

Application.ProcessMessages;

end.
Спасибо всем....2SerVS правильно! Сообщения надо посылать :-)))

---

← →
kull ©   (2002-07-09 01:46) [5]

> Application.ProcessMessages;

А это не посылает никаких сообщений.
И единственное окно - это PopupMenu.

---

← →
fester   (2002-07-09 02:59) [6]

To kull -> да я в курсе...спасибо.
To other ->
Как бы теперь убить это самое окно, если не было ни одного клика по итему. Я тута факи почитал -> ничего не подходит...

---

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

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



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