unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
Tformatka = class(TForm)
memek: TMemo;
menu: TMainMenu;
p1: TMenuItem;
popek: TPopupMenu;
test1: TMenuItem;
private
{ Private declarations }
public
{ Public declarations }
end;
var
formatka: Tformatka;
implementation
{$R *.dfm}
end.
object formatka: Tformatka
Left = 217
Top = 142
Width = 696
Height = 480
Caption = 'formatka'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = menu
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object memek: TMemo
Left = 208
Top = 144
Width = 185
Height = 89
Lines.Strings = (
'memek')
PopupMenu = popek
TabOrder = 0
end
object menu: TMainMenu
Left = 72
Top = 56
object p1: TMenuItem
Caption = 'test'
ShortCut = 16451
end
end
object popek: TPopupMenu
Left = 136
Top = 56
object test1: TMenuItem
Caption = 'test'
end
end
end
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {formatka};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(Tformatka, formatka);
Application.Run;
end.
Miłego kompilowania.
PS: dodałem popup menu, żeby zablokować domyślny popup wytnij\kopiuj\wklej