Einzelnen Beitrag anzeigen

psd-sign

Registriert seit: 3. Nov 2008
31 Beiträge
 
#6

Re: Wie schreibe ich eine Funktion?

  Alt 22. Nov 2008, 20:42
So funktioniert es ... 2 Zigaretten und nen Kaffee später

Delphi-Quellcode:
procedure TForm1.SHAPEClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Sender is TShape then
  begin
    if TShape(Sender).Brush.Color = Clmaroon then
    begin
    TShape(Sender).Brush.Color := ClBlack;
    exit;
    end
    else
    begin
    TShape(Sender).Brush.Color := ClMaroon;
    exit;
    end;
  end;
end;
  Mit Zitat antworten Zitat