Wie kann ich ein TPanel
verankern, damit es an der Spitze des Formulars in Lazarus bleibt? Wenn ich das in Delphi 7 mache, funktioniert es gut. Es sieht so aus, als ob die TPanel
Teil der Leinwand wird und wenn Sie nach unten scrollen TPanel
scrollt vom Bildschirm. Der Benutzer muss in der Lage sein, auf die Schaltflächen TPanel
zu klicken, unabhängig davon, wohin im Formular gescrollt wird. Im Idealfall möchte ich wie ein Menü auf dem Formular direkt unter dem Menü zum Beispiel nach oben ausgerichtet handeln. HierVerankern TPanel so bleibt es oben auf dem Formular
ist die FormCreate
Prozedur:
procedure TfrmTestPanel.FormCreate(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap := nil;
try
Bitmap := TBitmap.Create;
Bitmap.Width := 3000;
Bitmap.Height := 2000;
imgTest.Picture.Graphic := Bitmap;
imgTest.Width := 3000;
imgTest.Height := 2000;
finally
Bitmap.Free;
end;
end;
Ich habe Scrollbalken auf der rechten und unteren Rand des Formulars, damit der Benutzer das Bild bewegen kann entweder oben und unten oder rechts nach links. Wenn der Benutzer entweder nach unten oder nach rechts scrollt, verschwindet die Symbolleiste vom Bildschirm. Ich wollte, dass die Symbolleiste oben auf dem Formular bleibt, wie es die Menüzeile tut. Ich hoffe, das hilft dir, die Frage zu verstehen.
Warum ein TPanel und keine TToolbar? Und wenn ein Panel, warum nicht Align: = alTop? Und scroll * in * was * genau nach unten? Bitte denken Sie daran, dass wir Ihren Bildschirm nicht von der Stelle aus sehen können, an der wir sitzen, und wir können Ihre Gedanken nicht lesen; Die einzige Information, die wir zur Verfügung haben, ist, was Sie in Ihrer Frage angeben. Wenn Sie möchten, dass wir Ihnen helfen, geben Sie bitte die ** spezifischen ** Details darüber an, was Sie fragen. –
Prozedur TfrmTestPanel.FormCreate (Absender: TObject); var Bitmap: TBitmap; beginnen Bitmap: = Null; versuchen Sie Bitmap: = TBitmap.Create; Bitmap.Width: = 3000; Bitmap.Height: = 2000; imgTest.Picture.Graphic: = Bitmap; imgTest.Width: = 3000; imgTest.Height: = 2000; schließlich Bitmap.Free; Ende; Ende; –
Bitte [bearbeiten] Sie Ihren Beitrag, um Details hinzuzufügen, anstatt sie in Kommentaren zu vergraben. Wenn Sie die Details in den Post einfügen, werden sie verfügbar und Sie können den Code so formatieren, dass er lesbar ist. Sie können auch erklären, wie eine Bitmap (die mit der von Ihnen gestellten Frage nichts zu tun hatte) plötzlich relevant ist. –