3 ting, med edit box

Gennemsigtig baggrund er nemt nok, men resten ...

TForm har to properties, du skal sætte : TransparentColor (True) og TransparentColorValue (f.eks. clMaroon - den er grim og bliver sjældent brugt).

Din TEdit skal så også have dens property Color sat til clMaroon, og så er den gennemsigtig.

Du kunne eventuelt starte med det her:

procedure PaintEdit(var Edit: TEdit);
var
  Left, Width: Integer;
  Rgn: TRect;
  Canvas : TControlCanvas;
begin
  Canvas := TControlCanvas.Create;
  try
    Canvas.Control := Edit;
    Rgn := Edit.ClientRect;
    Canvas.FillRect(Rgn);
    Width := Canvas.TextWidth(Edit.Text);
    Left := Rgn.Right - Width - 1;
    Canvas.BrushCopy(Rgn, Form1.Image1.Picture.Bitmap, Rgn, clWhite);
    Canvas.Brush.Style := bsClear;
    Canvas.TextRect(Rgn, Left, 0, Edit.Text);
  finally
    Canvas.Free;
  end ;
end;

Her er lidt mere...
Sæt BorderStyle til bsNone, og så kan du tegne så tosset du vil! :)

En lille test:

  Canvas.Pen.Color := clGreen;
  Canvas.MoveTo(0,0);
  Canvas.LineTo(Edit.Width, 0);

Det må vist være svar på 1 og 3!

Hov forresten... Du kan godt fjerne
  Left := Rgn.Right - Width - 1;
og erstatte
  Canvas.TextRect(Rgn, Left, 0, Edit.Text);
med
  Canvas.TextRect(Rgn, 0, 0, Edit.Text);

Det var noget fra et tidligere eksempel om at højrestille teksten, så har du også lært det! ;)

kigger lige på det efter skole...

slowaters -> Jeg vil have en gennemsigtig baggrund i edit boxen, så man kan se formen

>>mysitesolution
Alternativt kunne du jo sætte din Edit's color til den samme som formen! :)

Skal du gøre det i min procedure, så er det bare:

Canvas.Brush.Color := clSilver;
Canvas.Pen.Color := clSilver; //Jeg er ikke 100% sikker på at denne skal bruges, men jeg er også lige stået op, og Delphi er ikke startet endnu! ;)
Canvas.Rectangle(Rgn);

//hermandsen

så er jeg kommet hjem...

nej det kan jeg ikke fordi formen måske er et billede

hermandseb -> Vil du ikke lave dine exsempler i et project og så ligge det op?

Sådan! :)
Lavede den lige lidt pænere! ;)
http://hermandsen.adsl.dk/tegneedit.zip