Siema!
No to zacznę wstępem:
Mam problem :-)
Mam edytor tekstu MDI, i chcę go zrobić na pełny ekran.
Zmieniam mu WindowState na wsMaximized, BorderStyle na fsNone, ale kiedy mi się zmienia BorderStyle, znikają mi wszystkie otworzone pliki tekstowe.
Co zrobić?
w ogóle nie mam pomysłu :-(
Cześć! Klikam ze szkoły, nie ma tu Delphi, nie mam jak sprawdzić. Podaj może, troszkę kodu, może to pomóc. Być może masz jakieś błędy...
Oto ten kawałek kodu:
procedure TForm1.PenyEkran1Click(Sender: TObject);
begin
if Form1.BorderStyle = bsNone then
begin
Form1.BorderStyle := bsSizeable;
Form1.WindowState := wsNormal;
Form1.Height := H;
Form1.Width := W;
Form1.Left := L;
Form1.Top := T;
PenyEkran1.Caption := 'Pełny Ekran';
end else
begin
Form1.BorderStyle := bsNone;
Form1.WindowState := wsMaximized;
PenyEkran1.Caption := 'Pomniejsz';
end;
end;