Button jak uruchomić kod z innego buttona

0

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

0

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.

0

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

0

To musisz podpiąc 3 funkcje pod event danego buttona :)

0

Nom zrób odpowiednie funkcje/metody.

0

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

0

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.

0

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 :)

0

ech... bez komentarza ;)

procedure TForm1.Button3Click(Sender: TObject);
begin
  Button2.Click;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1