VPF::Компонент edit с кнопкой внутри - Форум программистов

hawkins

Дата 16.7.2008, 00:02 (ссылка)

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

Загрузка ...

Шустрый

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

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

Подскажите какой-нибудь безплатный компонент типа поля TEdit с кнопкой внутри. Может есть такой в какой-нибудь бесплатной библиотеке.

Rrader

Дата 16.7.2008, 04:01 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

http://www.lmd.de/download/
Там есть компонент TLMDEdit. В нем все, что тебе требуется. Но рекомендую написать самостоятельно, ведь это очень просто smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

hawkins

Дата 17.7.2008, 12:21 (ссылка)

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

Загрузка ...

Шустрый

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

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

Да, спасибо посмотрю. А на счет своего компонента я уже думал, и прикидывал так:
создать наследника от TPanel, например TMyEdit, в конструкторе наследника создавать TEdit кнопку типа TBitBtn дочерними для панели. У TEdit убрать границы, а у панели сделать утопленными, и цвет как у TEdit, кнопку поместить справа от TEdit. При ресайзе панели подгонять размеры эдита и кнопки под нее.
Как, в правильном направлении думаю или может быть получше есть вариант?

Rrader

Дата 17.7.2008, 14:33 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Цитата(hawkins @ 17.7.2008, 19:21

)

Как, в правильном направлении думаю или может быть получше есть вариант?

Я бы до такого не додумался smile

Все очень просто. Кидаешь на форму TEdit. Пишешь такой код:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    procedure BtnClickHandler(Sender: TObject);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnClickHandler(Sender: TObject);
begin
  ShowMessage('Dummy! Not ready yet! =)');
  (Sender as TControl).Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TSpeedButton.Create(Edit1) do
  begin
    Parent := Edit1;
    Align := alRight;
    Width := 21;
    Caption := 'OK';
    Cursor := crHandPoint;
    OnClick := BtnClickHandler;
  end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  (Edit1.Components[0] as TControl).Repaint;
end;

end.

Тут, правда, не реализовано скрытие каретки при наборе, когда текст под кнопкой. Сделай сам smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

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