Прозрачный Edit

[alex_mindal]

Доброго времени суток, товарищи. Возникла проблема. Никак не могу сделать Edit прозрачным. Суть в том, что фон у Edit'a можно сделать того же цвета, что и форма. Но незадача в том, что у меня Edit находится на Image. В общем, что только не пробовал, а ни в какую. Очень прошу помочь, курсовая, как-никак)

Скрин программы прилагается. Закругленный черный прямоугольник и надписи введите логин и введите пароль - это картинки

[kropotkina-alice]

Сообщение от alex_mindal

Суть в том, что фон у Edit'a можно сделать того же цвета, что и форма

1. Цвет Edit-а надо делать цветом Image, а не формы.
2. У Edit-а установить цвет шрифта, скажем, белым.
3. У него же установить BorderStyle=bsNone, a все BevelEdges - в False.
Вот и все...
И получится у вас что-то такое (цвет Edit-ов подберете более точно сами):

[alex_mindal]

Этот вариант не совсем подходит. Суть в том, что бы эдит был как раз над надписями ввода логина и пароля, и что-бы при активации эдита, эти самые надписи исчезали)

[kropotkina-alice]

Сообщение от alex_mindal

Суть в том, что бы эдит был как раз над надписями ввода логина и пароля, и что-бы при активации эдита, эти самые надписи исчезали)

И кто этому мешает???
У Edita есть свойство Visible...
Расположите его поверх надписи и он вам ее загородит, как и любой контрол...

[alex_mindal]

В общем, использовал что-то похожее на ваш вариант. Просто цвет фона эдита задал через RGB и все получилось. А при клике на картинку введите логин она становится невидимой, а эдит соответственно видимым)

[kropotkina-alice]

Мой вариант - для того случая, когда надпись "Введите логин" нарисована на картинке. Кроме того, ее можно загородить TPanel цвета картинки, это в случае, если Edit располагать не поверх надписи, а где-то рядом...
А у вас надпись, по видимому, Label?

[Replicant]

Сообщение от alex_mindal

Суть в том, что фон у Edit'a можно сделать того же цвета, что и форма. Но незадача в том, что у меня Edit находится на Image.

А что мешает избавиться от Image, кинуть Edit на форму, задать нужный цвет, а рисунок нарисовать на конве формы? По идее должно все получиться.

[NetSpace]

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

[Аватар]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Buttons, ExtCtrls, ComCtrls, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
    procedure WMCtlColorEdit(var Message: TWMCtlColorStatic); message WM_CTLCOLOREDIT;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) and not WS_CLIPCHILDREN);
  SetWindowLong(Edit1.Handle,GWL_EXSTYLE,GetWindowLong(Edit1.Handle,GWL_EXSTYLE) or WS_EX_TRANSPARENT);
  Edit1.Brush.Style:=bsClear;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var xRect: TRect;
begin
  xRect:=Edit1.BoundsRect;
  InvalidateRect(Handle,@xRect,False);
end;

procedure TForm1.WMCtlColorEdit(var Message: TWMCtlColorStatic);
begin
  if Message.ChildWnd=Edit1.Handle then SetBkMode(Message.ChildDC,TRANSPARENT);
  inherited;
end;

end.

OnClick эдита тоже нацелить на Edit1Change. Есть проблема сброса выделения при перемещении каретки клавишами, но тоже можно решить в клавиатурных событиях

[Timofey_p]

Сообщение от alex_mindal

Этот вариант не совсем подходит. Суть в том, что бы эдит был как раз над надписями ввода логина и пароля, и что-бы при активации эдита, эти самые надписи исчезали)

А такое свойство Edit.TextHint не поможет? Он как раз исчезает при начале ввода.
Остальное сделать как предложил Аватар, только подправить бордюры Edit.BorderStyle := bsNone