[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by banned, 6 May 2007.

Thread Status:
Not open for further replies.
  1. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    N - кол-во элементов в массиве
    Code:
    var
     mas:array[1..N] of string;
     mas_pos:integer = 1;
    .......................
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     label1.Caption := mas[mas_pos];
     inc(mas_pos);
     if mas_pos > N then mas_pos := 1; // типа по кругу будем всё выводить )
    end;
    
    
    
     
    2 people like this.
  2. 0ldbi4

    0ldbi4 Elder - Старейшина

    Joined:
    14 Apr 2008
    Messages:
    264
    Likes Received:
    51
    Reputations:
    10
    Делаю программу как бы со скином поставил border style >>> bs_none что-бы небыло "окошка" но не знаю как теперь перемещать его, можно ли добавить какойнибудь компонент за который можно было бы перемещать окно или может код который позволит перемещать окно за любое место???????????
     
  3. [n]-c0der

    [n]-c0der Member

    Joined:
    3 Feb 2009
    Messages:
    83
    Likes Received:
    24
    Reputations:
    -1
    можно.
     
    1 person likes this.
  4. s.p.a.m

    s.p.a.m Banned

    Joined:
    26 Jan 2009
    Messages:
    6
    Likes Received:
    2
    Reputations:
    0
    0ldbi4,
    Code:
    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
    ReleaseCapture;
    Perform (WM_SYSCOMMAND,SC_MOVE+2,0);
    end;
    
     
    1 person likes this.
  5. 0ldbi4

    0ldbi4 Elder - Старейшина

    Joined:
    14 Apr 2008
    Messages:
    264
    Likes Received:
    51
    Reputations:
    10
    s.p.a.m + помог
     
  6. A_V

    A_V Elder - Старейшина

    Joined:
    18 Feb 2008
    Messages:
    106
    Likes Received:
    34
    Reputations:
    0
    Пожалуйста не говорите, что разделить и будет проще. Помогите с данным вопросом.


    procedure TForm1.Button1Click(Sender: TObject);
    var
    begin
    Первая часть кода

    Если мы нажимаем button2, то продолжается работа программы и выполняется кусок кода номер 2

    Вторая часть кода
    end;

    Как это реализовать, заранее спасибо!
     
  7. transserg

    transserg Elder - Старейшина

    Joined:
    2 Jul 2008
    Messages:
    147
    Likes Received:
    25
    Reputations:
    2
    A_V
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     case (Sender as Tbutton).Tag of
      1:ShowMessage((Sender as Tbutton).Caption);
      2:ShowMessage((Sender as Tbutton).Caption);
     end;
    end;
    
    за место ShowMessage твой код 1 или код 2 но свойство tag у Buton'ов установи заранее! и на вкладке events в обработчике событий поставь у баттонов этот обработчик!
     
    1 person likes this.
  8. A_V

    A_V Elder - Старейшина

    Joined:
    18 Feb 2008
    Messages:
    106
    Likes Received:
    34
    Reputations:
    0
    помойму вы меня не совсем поняли

    сначала исполняется первая часть кода, а для продолжения надо нажать баттон 2 и тогда выполнится вторая
    часть кода
     
  9. 0ldbi4

    0ldbi4 Elder - Старейшина

    Joined:
    14 Apr 2008
    Messages:
    264
    Likes Received:
    51
    Reputations:
    10
    он хочет вроде паузы в console application...
     
  10. 0ldbi4

    0ldbi4 Elder - Старейшина

    Joined:
    14 Apr 2008
    Messages:
    264
    Likes Received:
    51
    Reputations:
    10
    moder plz del this post
     
    #3690 0ldbi4, 2 Jul 2009
    Last edited: 2 Jul 2009
  11. transserg

    transserg Elder - Старейшина

    Joined:
    2 Jul 2008
    Messages:
    147
    Likes Received:
    25
    Reputations:
    2
    B]A_V[/B]
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     if (Sender as Tbutton).Tag=2 then
      (Sender as Tbutton).Tag:=123;
    begin
    первая часть кода
    end;
    while (Sender as Tbutton).Tag<>123 do
    begin
    application.processmessage;
    sleep(1000);
    end;
    end;
    
    пропробуй но с wahil думаю не лучший вариант
    p.s писал с кпк возможны ошибки
     
  12. A_V

    A_V Elder - Старейшина

    Joined:
    18 Feb 2008
    Messages:
    106
    Likes Received:
    34
    Reputations:
    0
    transserg
    Спасибо, но все равно не то, что надо.

    Попробую пойти другим путем.
     
  13. [n]-c0der

    [n]-c0der Member

    Joined:
    3 Feb 2009
    Messages:
    83
    Likes Received:
    24
    Reputations:
    -1
    А что мешает создать две функции, выполнить сначала одну, а по нажатию батона2 выполнить вторую функцию...
    О_о
     
  14. _GlaD1aT(OR)_

    _GlaD1aT(OR)_ Elder - Старейшина

    Joined:
    24 Jul 2008
    Messages:
    38
    Likes Received:
    15
    Reputations:
    0
    А какой функцией можно сделать, чтобы при нажатии на кнопку открывалась какая-либо папка? Заранее благодарен
     
  15. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    как вариант winexec('explorer c:\windows',sw_show);
     
    1 person likes this.
  16. [n]-c0der

    [n]-c0der Member

    Joined:
    3 Feb 2009
    Messages:
    83
    Likes Received:
    24
    Reputations:
    -1
    эээ...ShellExecute,WinExec, CreateProcess
     
  17. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    2 [n]-c0der Хотя есть апишка специально для этого предназначенная, но я не помню как она завется )
    Просто в данном случаем мы сильно привязываемся к тому что explorer является дефолтовой оболочкой
     
  18. slesh

    slesh Elder - Старейшина

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    p.s. нашел вот это более правильный метод который вроде как не зависит от того, какая программа является проводником.

    shellapi.ShellExecute(0, 'open', 'c:\windows', nil, nil, SW_SHOW);
     
  19. Skip206

    Skip206 New Member

    Joined:
    2 Jul 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    где можно скачать программу Shark2???для виндовс 7 ????
     
  20. [n]-c0der

    [n]-c0der Member

    Joined:
    3 Feb 2009
    Messages:
    83
    Likes Received:
    24
    Reputations:
    -1
    Если честно, то не слышал о такой...
     
Thread Status:
Not open for further replies.