Как написать процедуру в ДЕЛФИ??

[Wi1D]

где её нужно описывать??на всех дибильных сайтах ничего нет!!!я пишу процедуру а компил ругаеться!где там в делфи надо еще процедуру описать???

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg, Menus, MPlayer;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Image2: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image12: TImage;
    Image13: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton99: TSpeedButton;
    Label3: TLabel;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Label4: TLabel;
    Image3: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image19: TImage;
    Image20: TImage;
    MediaPlayer1: TMediaPlayer;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s,s1:string;
  ostalos,dl,dl1,dl2,nach1,nach2,i,j,k:integer;
  prov,exit:boolean;
  z:double;

implementation

{$R *.dfm}

procedure sell;
begin
if SpeedButton1.Down=true then Image2.Visible:=true;
if SpeedButton1.Down=false then Image2.Visible:=false;
end;

[DomiNick]

Ну... Можно просто вот так делать, не описывая ничего:

Procedure sell;
Begin
If Form1.SpeedButton1.Down Then
      Form1.Image2.Visible:=True
Else
      Form1.Image2.Visible:=False;
End;

[Sazary]

procedure TForm1.sell;
begin
if SpeedButton1.Down=true then Image2.Visible:=true;
if SpeedButton1.Down=false then Image2.Visible:=false;
end;

И добавьте объявление в паблик:

 public
  procedure sell;
    { Public declarations }
  end;

[DomiNick]

Ну или ещё проще:

Procedure sell;
Begin
Form1.Image2.Visible:=Form1.SpeedButton1.Down;
End;

А что оно хоть делать-то должно?

[Wi1D]

спасибо помогли!))))дальше сам)

[DomiNick]

Sazary, я вот обычно не объявляю процедуры, а просто пишу "с начала": Form1. ...

Есть ли существенные отличия и как делать лучше..?

[Sazary]

Сообщение от DomiNick

Есть ли существенные отличия и как делать лучше..?

Честно говоря, не знаю. )
Навскидку отличий особых не вижу. Просто привык так.

[Wi1D]

а можно еще вопрос?вот у меня на панели 10 кнопок...мне надо чтобы они все разом разжались например....мне в коде например на чек бокс поставить действие вида

SpeedButton1.Down:=false;
SpeedButton2.Down:=false;
SpeedButton3.Down:=false;
SpeedButton4.Down:=false;
SpeedButton5.Down:=false;
SpeedButton6.Down:=false;
SpeedButton7.Down:=false;
SpeedButton8.Down:=false;
SpeedButton9.Down:=false;
SpeedButton10.Down:=false;
SpeedButton11.Down:=false;
SpeedButton12.Down:=false;
SpeedButton13.Down:=false;
SpeedButton14.Down:=false;
SpeedButton15.Down:=false;
SpeedButton16.Down:=false;
SpeedButton17.Down:=false;
SpeedButton18.Down:=false;
SpeedButton19.Down:=false;

или можно это через for сделать?

[Sazary]

Вот тут посмотрите:
http://programmersforum.ru/showthread.php?t=47434

Вам поможет FindComponent

[Wi1D]

спасибо!учту!)))))