Forum boyutu

[brs]

Selam, Farkı bir şekilde form boyutunu ayarlamak istiyorum buton ile halletim fakat bunu form üzerindenki icona nasıl yapatıra bilirim

Kod: Tümünü seç

procedure TForm3.FormCanResize(Sender: TObject;
  var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
  if (Self.WindowState = wsMaximized) then
  begin
    Form3.Height := 690;
  end
  else
  begin
    Form3.Height := 235;
  end;
end;

Kod: Tümünü seç

procedure TForm3.PanelClick(Sender: TObject);
begin
  if Form3.Height >= 690 then
  begin
    Form3.Position := poDesktopCenter;
    Form3.Height := 235;
  end
  else
  begin
    Form3.Position := poDesktopCenter;
    Form3.Height := 690;
  end;
end;

[Delhici]

panel yerine bir imaj nesnesi koy.. gerisi aynı...