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

• #1425 ViragL tag Rolly #1423

  Új Válasz 2007-01-14 21:00:21 #1425

  Ú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

  

  ViragL

  tag

  válasz Rolly #1423 üzenetére

  A dialognak van egy color propertyje abban találod a dialogban kiválasztott színt.
  pl.
  procedure TForm1.btn1Click(Sender: TObject);
  begin
  if dlgColor1.Execute then
  Form1.Color := dlgColor1.Color;
  end;
  
  
  MOD: lassu voltam
  
  [Szerkesztve]

• #1424 P.H. senior tag Rolly #1423

  Új Válasz 2007-01-14 20:59:58 #1424

  Ú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

  

  P.H.

  senior tag

  válasz Rolly #1423 üzenetére

  A TColorDialog-ot kiteszed a form-ra, majd a programban:
  
  if ColorDialog1.Execute then xxx:=ColorDialog1.Color;
  
  Ha az .Execute TRUE-val tér vissza, akkor az OK-ra kattintottak rajta, a .Color-ból olvasható az utolsó kiválsztott szín.

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