Új hozzászólás Aktív témák

• #310 lao ce aktív tag Hani #309

  Új Válasz 2004-12-07 15:05:52 #310

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lao ce

  aktív tag

  válasz Hani #309 üzenetére

  ingovanyos a tudasom ezen a teruleten, de valami ilyesmi:
  
  type
  ...TSajat = class(TButton)
  private
  ...FUzenet : string;
  protected
  ...procedure MouseDown... override; // <- atvesszuk a hatalmat!
  published
  ...// Uzenet property lathato kivulrol mint egy string
  ...property Uzenet: string read FUzenet write FUzenet;
  end;
  
  procedure TSajat.MouseDown...
  begin
  ...inherited; // <- megcsinaljuk amit amugy is
  ...// es pluszban:
  ...if FUzenet<>'' then ShowMessage( FUzenet );
  end;
  
  szokas szerint nem probaltam ki

Új hozzászólás Aktív témák