[жекаизжека]

Подскажите как можно сделать картинку в Edit или какой компонент можно использовать,использую delphi 7 и 2009?

[Nyctos Kasignete]

Да в принципе, доп. компоненты необязательны...
Можно и так нарисовать картинку в Edit'е.

Код:

procedure DrawToEdit;
var
  DC: HDC;
  bmp: TBitmap;
begin
  DC := GetDC(Form1.Edit1.Handle);
  bmp := TBitmap.Create;
  try
    bmp.Height := 32;
    bmp.Width := 32;
    DrawIcon(Bmp.Canvas.Handle, 0, 0, Application.Icon.Handle);
    StretchBlt(DC, Form1.Edit1.ClientWidth - Form1.Edit1.ClientHeight, 0,
               Form1.Edit1.ClientHeight, Form1.Edit1.ClientHeight, Bmp.Canvas.Handle,
               0, 0, bmp.Width, bmp.Height, SRCCOPY);
  finally
    bmp.Free;
    ReleaseDC(Form1.Edit1.Handle, DC);
  end;
end;

Только придется перерисовывать картинку при каждом «существенном» для Edit'а событии:

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  DrawToEdit();
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
  DrawToEdit();
end;

[Страдалецъ]

Сообщение от жекаизжека

Подскажите как можно сделать картинку в Edit или какой компонент можно использовать,использую delphi 7 и 2009?

Может имелось ввиду вставка картинки в текст?
Тогда воспользуйтесь RichEdit.

[жекаизжека]

да в принципе имелось ввиду так же сделать как в мозиле там где поисковичек.

[Страдалецъ]

Мозилы не стоит, картинку выложите.

[жекаизжека]

вот выложил, извиняюсь что так долго..

[Страдалецъ]

Сообщение от жекаизжека

вот выложил, извиняюсь что так долго..

Понятно. Если у вас стоит D2007 или D2009 то решается с помощью компонента TButtonedEdit, который прячется в Additional