Witam,
Mam problem, a szczegółowo, to tak: mam 2 formy. Pierwsza jest widoczna cały czas, zaś druga po kliknięciu buttona powinna pojawić się w górnym prawym rogu. Cały czas próbuję to zrobić, ale teraz utknąłem. Nie wiem czemu z kodu poniżej wyskakuje błąd.
procedure TForm5.FormCreate(Sender: TObject);
begin
Form5.Left:=Form1.Left+(Form1.Width-Form5.Width);
Form5.Top:=Form1.Top+(Form1.Height-Form5.Height);
end;
Proszę o pomoc i pozdrawiam,
Starmax
W górnym prawym rogu pierwszej formy czy rogu ekranu? Napisałeś w tytule "względem drugiej". Jak chcesz w prawym górnym rogu względem drugiej formy to:
Form2.Left := Form1.Left + Form1.Width;
Form2.Top := Form1.Top;
A względem ekranu w jego prawym górnym rogu:
Form2.Left := // <klops> Dawno nie pisałem nic w Delphi i nie pamiętam jak się odczytuje właściwości ekranu ;/
// W każdym razie poszukaj w necie jak odczytać długość i wysokość ekranu, a szablon będzie taki:
Form2.Left := dl_ekranu - Form2.Width;
Form2.Top := 0;
Powinno działać.
A jaki tam masz błąd?? <treść>
Form5.Left:=Form1.Left+(Form1.Width-Form5.Width);
Form5.Top:=Form1.Top+(Form1.Height-Form5.Height);
Podczas tworzenia formy nie ma ona jeszcze przypisanych wymiarów (chyba), lecz nie powinno to wywoływać błędu.
U mnie ten kod
Form2.Left:=Form1.Left+(Form1.Width-Form2.Width);
Form2.Top:=Form1.Top+(Form1.Height-Form2.Height);
Działa bezproblemowo.
Kod podpięty pod Form2.Create, a pod Form1.Button1.Click jest wyświetlenie tej formy.
Brak błędów, choć wg.mnie pozycja okna powinna być ustawiana w Form1.Button1.Click przed wyświetleniem Form2 (czy tam Form5).
Starmax napisał(a)
Mam problem, a szczegółowo, to tak: mam 2 formy. Pierwsza jest widoczna cały czas, zaś druga po kliknięciu buttona powinna pojawić się w górnym prawym rogu.
Krótko i na temat:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form5.Left:= Form1.ClientOrigin.X + Form1.ClientWidth - Form5.Width;
Form5.Top:= Form1.ClientOrigin.Y;
Form5.Show;
end;
Może źle napisałem. Chodzi mi o położenie Jednej formy wzg. drugiej. Druga forma po kliknięciu buttona powinna pojawić się w górnym prawym rogu formy pierwszej.
Zaś treść błędu brzmi:
Project Project1.exe raised exception class EAcessViolation with message 'Access violation at adress 00470042 in module 'Project1.exe'. Read of adress 00000048'. Process stopped. Use Step or Run to Continue.
Pozdrawiam
Starmax
O jakie ustawienie w rogu Ci chodzi? Przedstawiłem 2 moje możliwości, o ktorą ci chodzi? (może jeszcze inną??):
Forma 2. względem I - środek formy w prawym górnym rogu Formy 1.:
Forma 2. względem I - lewy dolny róg Formy 2. w prawym górnym Formy 1.:
Kod dla możliwości I.:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Left := Form1.Left + Form1.Width - (Form2.Width / 2);
Form2.Top := Form1.Top + (Form2.Height / 2);
Form2.ShowModal;
end;
Kod dla możliwości II podałem kilka postów wyżej.
Nie mam pojęcia, dlaczego masz ten błąd, kiedyś takimi rzeczami się bawiłem i wszystko było ok. Mój udział się w tym momencie kończy, dawno z Delphi nie miałem doczynienia, ale sądząc po błędzie odczytujesz jakiś zły adres w pamięci, tylko co nie tak w kodzie? ;/ Tak mogło by się dziać przy konstruktorze formy, ale nie w metodze onClick Buttona, hmm.
A gdzie wykonujesz tego butona? Jak inicjalizujesz te formy?
Ja się dołączam do sugesti Patryka, bo widać że sam debuggera nie umiesz używać (a kto umie). Ale jednak w Newbie to już użerać się nie będę...
PS. To się pisze DELPHI...