Witam
mam taki problem
Załóżmy że mamy 2 buttony button1 i button2
Potrzebuje uruchomić np program z buttona1 pod butonem 2 jak mam to zrobić bo szukając w necie nic nie znalazłem Próbująć na rożne sposoby nic mi nie działa
Jeżeli dobrze zrozumiałem o co Tobie chodzi to uruchomienie programu najprościej zrobić funkcja ShellExecute z modułu ShellApi. Jeżeli piszesz w VCL oczywiście, a nie w WinAPI. A tak zalożyłem widząc takie pytanie. A pod VCL masz do dyspozycji Object Inspectora, w którym w zakładce Events możesz przestawić z listy zdarzenia przypisane buttonowi pierwszemu, dla drugiego lub odwrotnie. Można to też zrobić poprzez kod, zmieniajac zdarzenie OnClick na przykład tak: Button1.OnClick := Button2Click;
. Poza tym tak banalne pytania zadaje się na tym forum w dziale Newbie i tam przenoszę ten wątek.
chodzi o to że chcĘ pod 1 klawiszem uruchomić program z 3 klawiszy
Mógł bym prosić o jakiś przykład pisze w delphi 9
To musisz podpiąc 3 funkcje pod event danego buttona :)
Nom zrób odpowiednie funkcje/metody.
A nie da sie dodać pod button do kodu źródłowego bo musze zrobić tak że jesli kod z króregoś butona zgłosi jakiś bład to przerwie się proces wykonywania funkcji
Najprościej:
if JakisWarunekBledu then
Exit;
Zamiast JakisWarunekBledu
trzeba wstawić coś odpowiedniego na przykład not FileExists('nazwa_pliku')
jeżeli plik ma istnieć, a jak nie przerwać. Najlepiej poczytaj kompendium na stronie 4p oraz ogólnie o instrukcjach warunkowych w Delphi, bo póki co będziesz miał "1000 pytań do...", a tak się niczego nie nauczysz.
taki przykład:
procedure TForm12.BitBtn3Click(Sender: TObject);
begin
//tu chciał bym uruchomić klawisz Button2Click jak to zrobić
en
procedure TForm12.Button2Click(Sender: TObject);
begin
form12.hide; form1.enabled:=true;
// tu bedzie duzo wiecej kodu
end;
prosze o przykład jesli jest to proste bo dla mnie jest to trudne :)
ech... bez komentarza ;)
procedure TForm1.Button3Click(Sender: TObject);
begin
Button2.Click;
end;