Witam!
Tworzę prosty program graficzny, mam mały problem z pobieraniem nazwy komponentu do zmiennej, przyznam jestem początkującym "programistą", jeżeli mogę siebie tak nazwać. Pojawia mi się komunikat przy próbie kompilacji i wywala błąd w miejscu "a" przy zdarzeniu OnMouseMove:
pas(931): Incompatible types: 'TPanel' and 'String';
var
Form1: TForm1;
a: TPanel;
procedure TForm1.g2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
nazwa:=(Format('%s.%s',[self.Name,TPanel(Sender).Name]));
end;
procedure TForm1.g2Click(Sender: TObject);
begin
nazwa.color :=clblack;
end;
Proszę o pomoc, bądź wskazówki! : )