VPF::всплывающее (?) меню как в Delphi7 - Форум программистов

XAKEPEHOK

Дата 14.4.2009, 00:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 18.10.2006
Где: Matrix

Репутация: нет
Всего: 0

Добрый день! Где-то когда-то видел пример как реализовать сие. Т.е. когда в делфи после имени компонента ставлю точку выпадает меню с возможными свойствами и событиями. Как сделать нечто подобное выпадающее в своей программе?

Kbl4AH

Дата 14.4.2009, 08:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 1
Всего: 15

Код


unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;

type
  TMainForm = class(TForm)
    Editor: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure EditorKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure CodeListClick(Sender: TObject);
  public
    { Public declarations }
    CodeList: TListBox;
  end;

var
  MainForm: TMainForm;

implementation

uses Types;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  CodeList := TListBox.Create(Self);
  CodeList.Parent := Editor;

  CodeList.Visible := False;
  CodeList.Width := 200;
  CodeList.Height := 100;
  CodeList.Items.Add('Caption');
  CodeList.Items.Add('Top');
  CodeList.Items.Add('Left');

  CodeList.OnDblClick := CodeListClick;
end;

procedure TMainForm.CodeListClick(Sender: TObject);
var
  currentLine: Integer;
begin
  if CodeList.ItemIndex <> -1 then
  begin
    currentLine := Editor.CaretPos.Y;
    { add text from the list to the editor }
    Editor.Lines[currentLine] := Editor.Lines[currentLine] +
      CodeList.Items[CodeList.ItemIndex];
  end;
  CodeList.Visible := False;
  Editor.SetFocus;
end;

procedure TMainForm.EditorKeyPress(Sender: TObject; var Key: Char);
var
  CliPos: TPoint;
  ListX: Integer;
  ListY: Integer;
begin
  if Key = '.' then
  begin
    { get caret position }
    GetCaretPos(CliPos);

    { adjust list position }
    ListX := CliPos.X;
    ListY := CliPos.Y + CodeList.Canvas.TextHeight('W') + 4;

    if ListX + CodeList.Width >= Editor.Width then
      ListX := Editor.Width - CodeList.Width - 20;

    if ListY + CodeList.Height >= Editor.Height then
      ListY := Editor.Height - CodeList.Height - 20;

    CodeList.Top := ListY;
    CodeList.Left := ListX;
    CodeList.ItemIndex := 0;
    CodeList.Visible := True;
    CodeList.SetFocus;
  end else
    CodeList.Visible := False;
end;

end.

© И. Хладни - "Внутренний мир Borland Delphi 2006"

Akella

Дата 14.4.2009, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Может лучше форму создавать? У формы больше возможностей, чем у списка.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »