Van egy kép kép
A fényképek egy képet is. Hogyan kell telepíteni a képet, hogy kitöltse a képernyőt?
Image1.Width: = Form1.Width;
Image1.Height: = Form1.Height;
Image1.Stretch: = true;
Van olyan vélemény is a teljes képernyőn, hanem az egész ablakot.
Így is, kiderül szemét: (((
Nem világos, hogy a szemetet kapunk, ez mogdi csak akkor történhet meg, ha írnál mindent oroszul). Magyarázni egy kicsit szellemileg, mi a probléma, azonban valószínű, hogy a következő pomoget (arra a következtetésre jutott, hogy szükséges és mi nem)
eljárás TForm1.Button1Click (Sender: TObject);
var
prop: Real;
kezdődik
ha nincs hozzárendelve (FImage), majd
A TOpenDialog.Create (Self) do
megpróbál
ha Execute majd
kezdődik
FImage: = TImage.Create (Self);
A FImage do
kezdődik
Szülő: = Self;
DoubleBuffered: = true;
megpróbál
FImage.Picture.LoadFromFile (fájlnév);
kivéve
az e: Kivétel do
kezdődik
FreeAndNil (FImage);
Application.MessageBox ( "rossz választás, ne" "t megkérdezni, hogy miért", "User hibázott", 16 ,.);
Kilépés;
végén;
végén;
A Picture.Bitmap do
prop: = magasság / szélesség;
ha prop> 1, akkor
kezdődik
Szélesség: = Screen.Width;
Magasság: = Round (szélesség * prop);
vég
más
kezdődik
Magasság: = Screen.Height;
Szélesség: = Kerek (magasság / prop);
végén;
BoundsRect: = Self.ClientRect;
Stretch: = true;
végén;
Tényleg minden rendben. Csak akkor, ha nem, a Form.Show, akkor a képernyőn marad panel a Start menüt és a Button.Click minden rendben. Hogyan kell csinálni, hogy a Form.Show panel nem jelenik meg?
Tehát ugyanaz, semmi sem változott.