Ĺadny brzuch
Mam możliwość podania zdarzenia onclick do pozycji w Menu. Chcę aby zdarzenie onclick otwierało formę, której nazwę podano w TEdit eNazwaPozycjii.
vItem.onclick := PChar(eNazwaPozycjii.Text).Show
var i:integer; begin for i:=0 to screen.formcount-1 do begin if ansilowercase(screen.forms[i].Name)=ansilowercase(edit1.Text) then begin screen.forms[i].Show; break; end; end;
:)
@down - p1101 - ja się odmieniam krajew4a :P :)
Użytkownik krajew4 edytował ten post 14 sierpień 2006, 10:06
var vItem: TMenuItem; vForm: TForm; begin vItem := TMenuItem.Create(Programy1); vItem.Caption := eNazwaPozycji.Text; Programy1.Insert(0, vItem); vForm := TForm.Create(Application); vForm.Name := eNazwaPozycji.Text;
A jak dodać to do tego kodu. Do tworzoniej pozycji w Menu chcę dodać możliwość otworzenia tworzonej formy.
Kod krajewa umieść w osobnej procedurze (w zasadzie w metodzie klasy formy, gdzie to wszystko się odbywa) na przykład o nazwie Klik. Wtedy po utwotrzeniu item'a w menu (czyli w kodzie, który podałeś) dajesz:
vItem.onclick := Klik;
Użytkownik p1101 edytował ten post 14 sierpień 2006, 10:05
A jak dodać to do tego kodu. Do tworzoniej pozycji w Menu chcę dodać możliwość otworzenia tworzonej formy.
taka ogolna rada: naucz sie podstaw, i wyciagaj wnioski z odpowiedzi na Twoje poprzedne tematy, bo jak na razie widze z ty po prostu starasz sie przepisac kod zamiast go zrozumiec (calkiem niedawno byla juz mowa o podpinaniu zdarzenia do dynamicznych obiektow, i padla odpowiedz jak to zrobic)
Dobrze. Postaram się coś więcej poczytać. Dziękuje wszystkim i proszę o zamknięce.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
vItem.onclick := PChar(eNazwaPozycjii.Text).Show
var i:integer; begin for i:=0 to screen.formcount-1 do begin if ansilowercase(screen.forms[i].Name)=ansilowercase(edit1.Text) then begin screen.forms[i].Show; break; end; end;
:)
@down - p1101 - ja się odmieniam krajew4a :P :)
Użytkownik krajew4 edytował ten post 14 sierpień 2006, 10:06
var vItem: TMenuItem; vForm: TForm; begin vItem := TMenuItem.Create(Programy1); vItem.Caption := eNazwaPozycji.Text; Programy1.Insert(0, vItem); vForm := TForm.Create(Application); vForm.Name := eNazwaPozycji.Text;
A jak dodać to do tego kodu. Do tworzoniej pozycji w Menu chcę dodać możliwość otworzenia tworzonej formy.
Kod krajewa umieść w osobnej procedurze (w zasadzie w metodzie klasy formy, gdzie to wszystko się odbywa) na przykład o nazwie Klik. Wtedy po utwotrzeniu item'a w menu (czyli w kodzie, który podałeś) dajesz:
vItem.onclick := Klik;
Użytkownik p1101 edytował ten post 14 sierpień 2006, 10:05
A jak dodać to do tego kodu. Do tworzoniej pozycji w Menu chcę dodać możliwość otworzenia tworzonej formy.
taka ogolna rada: naucz sie podstaw, i wyciagaj wnioski z odpowiedzi na Twoje poprzedne tematy, bo jak na razie widze z ty po prostu starasz sie przepisac kod zamiast go zrozumiec (calkiem niedawno byla juz mowa o podpinaniu zdarzenia do dynamicznych obiektow, i padla odpowiedz jak to zrobic)
Dobrze. Postaram się coś więcej poczytać. Dziękuje wszystkim i proszę o zamknięce.