Tworzę sobie formę oraz Image dynamicznie podczas działania programu. Forma ma wymiary 791x500 pixeli a Image 768x1056 pixeli. I teraz nie wiem dlaczego ale pionowy pasek przewijania na formie się nie pokazuje. Jak go pokazać lub jakie właściwości formy ustawić by się pokazał??
- Rejestracja:prawie 22 lata
- Ostatnio:ponad 14 lat
- Postów:2998
0
Hmm... U mnie w takiej sytuacji ScrollBar się pojawia... Spróbuj może zerknać na właściwości HorzScrollBar.Visible i VertScrollBar.Visible...
- Rejestracja:ponad 22 lata
- Ostatnio:prawie 7 lat
- Postów:750
0
Tu jest cała procedurka:
procedure TForm1.CreateFormClick(Sender: TObject);
var
Form: TForm;
Box: TComboBox;
begin
Form := TForm.Create( Application.Owner );
Try
Forma.ClientWidth := 768;
Forma.ClientHeight := 500;
Forma.AutoSize := False;
Forma.AutoScroll := True;
Forma.BorderStyle := bsSingle;
Forma.BorderIcons := [biSystemMenu];
Forma.Position := poDesktopCenter;
Forma.Color := clWhite;
Box := TImage.Create( Forma );
Box.Parent := Forma;
Box.Align := alNone;
Box.Left := 0;
Box.Top := 0;
Box.Width := 768;
Box.Height := 1056;
Forma.Show;
Except
Forma.Free;
End;
end;
<font color="blue">[EDITED]</span>
Mój błąd mała literówka w przepisywaniu :P Parent jest ustawiony ale i tak nie działa...
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.