Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];
ВнизИстина где-то рядом.....:-) Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c