formun eski hali

[egedenizi]

Merhabalar arkadaşlar.
Sorunumu basit bir örnekle açıklamak istiyorum.
Benim tasarım aşamasında 3tane button 1 tane edit nesnem var.

Button1. click yordamına
begin
button1.destroy;
edit1.color:=clgreen;
end;
yazdım ve programı çalıştırdım.button1 yok ettim ve editin rengini degistirdim.
Sorum şu değişen formu button2'ye basarak tasarım aşamasındaki durumuna getirmek istiyorum.Nasıl yapabilirim
Teşekkürler......

[lazio]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Visible := False;
  Edit1.Color := clGreen;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Visible := True;
  Edit1.Color := clWindow;
end;

[egedenizi]

ilginize teşekkür ederim.fakat ben sorunumu anlatamadım galiba.
benim istediğim tasarım aşamasındaki formu(nesneleri konumlarıyla birlikte)program çalıştıktan sonra(yani nesnelerin konumları değiştikten sonra) çağırmak istiyorum.Bu mümkün müdür.Tekrar teşekkür ederim.

[husonet]

nesnelerin koordinatlarını bir ini dosyasında saklayıp okutabilirsin vb..

Kolay Gelsin...