Картинка в TEdit

[phphel]

Всем привет.

Подскажите как можно вставить speedbutton или картинку в edit?

Мне нужно что-то наподобие как у webmoney keeper'a.
При запуске у него два поля, пароль и WMID, и после Tedit'a я так понял идет картинка.

Как сделать ума не приложу..

From artemavd: че, кнопка "Правка" тебе не знакома чтоли? Не в чате находишься, а на форуме.

[dmitriegorovih]

Ну попробуйте перехватывать canvas edit(a) и на него отрисовывать картинку
вот как то так

procedure TForm1.Timer1Timer(Sender: TObject);
var
canv:Tcanvas;
begin
canv:=Tcanvas.Create;
canv.Handle:= getdc(edit1.Handle);
canv.Draw(0,4,image1.Picture.Graphic);
end;

Тока есть один побочный эффект Мигание

[Alex Cones]

Нет тут никого.

У TEdit делаем Border = 0, кладем его на панель, которую делаем узкой и заливаем её цветом TEdit, затем справа кладем Timage, в которую загружаем картику.

P.S. Подробней не скажу, t 39°С, сдохну скоро.

[phphel]

dmitriegorovih, немного не то, мне нужно использовать обычную картинку или кнопку, что бы у нее были свойства OnClick и т.д.

Просто тупо поставить картинку справа нужно, и сделать что бы они сливалась с фоном edit'a.

Прокатывает если сделать borderstyle - none, и beveledges - right:=false.. у tedita.

Но кнопка получается не красивая

Alex Cones, неплохо придумано) сейчас попробую

http://forum.vingrad.ru/forum/topic-144722.html вот тут кстати уже сделали, единстенное, что там нельзя "нажать на" image, и рамка изменення..

[dmitriegorovih]

что бы у нее были свойства OnClick

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if x>=85 then begin
if x<=120 then begin
//++++++++++++++++++++++++++++++++++++++++++++

// Сюда пиши свой код каторый надо по он клик

//++++++++++++++++++++++++++++++++++++++++++++
end;
end;
end;

[phphel]

dmitriegorovih, грубо это как то)
твой вариант уж слишком много побочных эффектов имеет...

Да и не нужно мне что бы буквы залазили на картинку...

ее надо вставлять не в edit а в Image и image ставитб справа от edit'a.
Все бы хорошо, но не могу добиться эффекта "сливания" edit'a и image.

Cделал у edit'a такие свойства.

BorderStyle - None
BevelEdges - [beLeft,beTop,beBottom]
BevelKind - bkFlat

Все норм, но текст не посередине(
и рамка другая(

Может есть способ, нужно просто закрасить правый бордюр у tedit'a.

ЧТо бы сливалось с картинкой..дальше уже дело техники

[spamer]

Как один из лучших вариантов - написать свой компонент, наследник от TEdit.

[phphel]

Да уже все сделал)
Все отлично, только 2 побочных эффекта..

Рамка чуть другая если присмотреться, и текст не посередине..
если кому надо выложу код

Вот выкладываю exe, кому не трудно потестите на наличие багов

[spamer]

Эээ а тестить типа картинка...ну тогда все нормально...

[phphel]

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