Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Wie schreibe ich eine Funktion?

    Delphi
    by Namenloser, 22. Nov 2008
  Noch etwas kürzer:
  
  procedure TForm1.SHAPEClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
  if Sender is TShape then
  begin
  with TShape(Sender).Brush do
  begin
  if Color = clMaroon then
• Forum: Object-Pascal / Delphi-Language

  Re: Wie schreibe ich eine Funktion?

    Delphi
    by Namenloser, 22. Nov 2008
  Hallo, psd-sign.
  
  TheShape: TComponentname;
  Was du hier deklarierst, ist nur der Name einer Komponente - nichts anderes als ein String. Der Name hilft dir hier aber nicht weiter, sondern du brauchst das Objekt selbst - vom Typ TShape.
  Deshalb muss die Deklaration so lauten:
  TheShape: TShape
  
  Wenn du jetzt noch die Zeile
  TheShape:=TShape(Sender).Name;
  in