Картинка в TEdit

[Dj_smart]

Слушайте тут я один что-ли пользуюсь WebMoney?)
А то подозрительного вида картинка в начале темы

[phphel]

Dj_smart, если Вы не заметили, я и не скрывал, что заимствую эту фичу у кипера.

[W0LF]

Я не понимаю трудности... Берете рамку (картинкой или компоненту), вставляете внутырь edit такого же цвета + сбоку картинку которая обробатывает нажатие левой кнопкой мыши и вызывает PopupMenu. Зачем паритсья с созданием компонента?

[Stilet]

кто знает более красивые решения поделитесь.

 windows.SetParent(Button1.Handle,Edit1.Handle);
 Button1.Top:=0;Button1.Left:=Edit1.Width-Button1.Width;

Красиво?

P.S. По ссылкам не ходил.

[phphel]

Stilet, как всегда +1 в репу)
а можно вместо button image вставить?
А то я у него не нашел handle)

[Stilet]

А че нет? Кинь на Панель, у нее есть Хендл.
Кстати можно что-то типа этого применить:

unit Unit1;

interface

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

type
  TEdit=class(StdCtrls.TEdit)
   Procedure wmp(var m:TWMPaint); message WM_PAINT;
   Procedure wmeb(var m:TWMEraseBkgnd); message WM_EraseBkgnd;
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   b:TBitmap;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 b:=TBitmap.Create;
 b.LoadFromFile('D:\stasya_ru_2_big.bmp');

end;

{ TEdit }

procedure TEdit.wmeb(var m: TWMEraseBkgnd);
begin
 StretchBlt(m.DC,Width-Height,0,Height,Height,b.Canvas.Handle,0,0,b.Width,b.Height,SRCCOPY);
end;

procedure TEdit.wmp(var m: TWMPaint);
begin

end;

end.

Но пару глюков придется пофиксить с отрисовкой

[phphel]

Stilet, Спасибо, вариант с панелью прокатил)