Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
9. Jan 2015
bei mir schaut jetzt die Erweiterung für die 2. Form (MessageForm) so aus:
If MessageForm.Visible then
begin
Rahmenbreite_MaskForm := (MaskForm.Width - MaskForm.ClientWidth) div 2;
X := MessageForm.Left - (MaskForm.Left + Rahmenbreite_MaskForm);
Y := MessageForm.Top - (MaskForm.Top + (MaskForm.Height - Rahmenbreite_MaskForm - MaskForm.ClientHeight));
...
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
6. Jan 2015
Dank dir - jetzt hab ich beides drauf
nur die Position der 2. Form im Bitmap entspricht nicht der eigentlichen Position
Das bekomm ich aber noch raus
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
6. Jan 2015
so bekomm ich jetzt nur ein weisses Rechteck, in der Größe der MainForm und da drauf die 2. Form
vermutlich hab ich irgendwas falsch übernommen
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
6. Jan 2015
dafür hab ich grad diesen Code gefunden
aber ich bräuchts ohne Rahmen (jedenfalls von der MainForm)
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
6. Jan 2015
Hallo,
mittels dem nachfolgenden Code mach ich Screenshots von einer Form (MainForm):
procedure ScreenShot_erstellen(const Pfad: String);
function DateiName(Pfad, Name, Endung: String): String;
var
i: Integer;