tegne på et TPanel

Smid en TPicture oven på

ja, men så kan jeg fx ik bruge TPanel's Focused property vel?

det er den jeg er ude efter, for den er nemlig ik på et TImage :)

ja det er det eneste at gøre da tpanel ikke har et canves, du kan dog downloade componenter mener jeg, som har canves. Ellers går som lind siger

med mindre der er en nemmere løsning end TPanel, for at finde ud af om objektet er fokuseret ?

canvas

så må det blive den nemmere løsning :) komponenter hvor kan de findes :)

Det kan godt lade sig gøre at tegne på en TPanel. Prøv dette eksempel:

var
  MyCanvas : TControlCanvas;
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyCanvas := TControlCanvas.Create;
  MyCanvas.Control := Panel1;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //MyCanvas.FillRect(ClientRect);
  if SSLeft in Shift then
  MyCanvas.Pixels[X,Y] := clBlack;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MyCanvas.Free;
end;

Når du holder venstre museknap nede på din TPanel tegnes der med sort på den!
Er testet!!!!

ZeroHero

dkn -> Når TPanel ikke har en Canvas, og man skal bruge en, gir man den bare en (Control)Canvas (som ZeroHero viser) :)

athlon-pascal -> eh ja det har jeg set

takker det virker jo glimrende :)