Как установить фоновое изображение для редактирования (Delphi)
-
30-09-2019 - |
Вопрос
Как я могу иметь изображение для фона EditBox?
Решение
Это действительно возможно, действительно. В вашей форме определите
private
{ Private declarations }
FBitmap: TBitmap;
FBrush: HBRUSH;
protected
procedure WndProc(var Message: TMessage); override;
и делай
procedure TForm1.FormCreate(Sender: TObject);
begin
FBitmap := TBitmap.Create;
FBitmap.LoadFromFile('C:\Users\Andreas Rejbrand\Pictures\AS20Utv.bmp');
FBrush := 0;
FBrush := CreatePatternBrush(FBitmap.Handle);
end;
а также
procedure TForm1.WndProc(var Message: TMessage);
begin
inherited;
case Message.Msg of
WM_CTLCOLOREDIT, WM_CTLCOLORSTATIC:
if (Message.LParam = Edit1.Handle) and (FBrush <> 0) then
begin
SetBkMode(Message.WParam, TRANSPARENT);
Message.Result := FBrush;
end;
end;
end;
Конечно, вы можете обернуть это в компонент самостоятельно, скажем TEditEx
. Отказ Если у меня есть время, я мог бы сделать это. (И обратите внимание, что нет необходимости покупать дорогостоящую (и, возможно, не так высококачественный) компонентный пакет из сторонней компании.)
Не связан с StackOverflow